<%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/; }