%perl>
my $datasource = "dbi:mysql:peakinsight";
my $dbusername = "peakinsight";
my $dbpassword = "aayrsh3687";
my $dbh = DBI->connect($datasource, $dbusername, $dbpassword);
my $statement = "SELECT file,title FROM sqlfs WHERE file LIKE '/content/newsletter%'";
my $sth = $dbh->prepare($statement);
my $rv = $sth->execute;
while (my @row = $sth->fetchrow_array) {
$row[0] =~ s/\/content//g;
print qq($row[1]
) unless $row[0] =~ /index.html/;
}
%perl>