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

##</code><code>##

use DBI ;

my $r = Apache->request;
$r->content_type("text/html");
$r->send_http_header();

$dbh = DBI->connect('dbi:mysql:test:localhost', 'user', 'pass' );

my $sql = "blah blah blah"  ;
my $sth =  $dbh->prepare($sql) or die('sql prepare error');
$sth->execute()  ;
my ($name) = $sth->fetchrow_array;

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