Select Code to Download

my $sql = "this is not sql"  ;
my $sth = $dbh->prepare($sql) or $m->abort(500) ;

use DBI ;

...
my ($name) = $sth->fetchrow_array;

$r->print( ".$name.\n") ;