<%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 insights WHERE itemtype = 'corporategreening'";
my $sth = $dbh->prepare($statement);
my $rv = $sth->execute;
while (my @row = $sth->fetchrow_array) {
unless ($row[0] =~ /^http/) {
print qq~$row[1] Click here to download