Select Code to Download

require DBI;
require DBD::mysql;

$statement = ....
$sth = $dbh->prepare($statement) 
$rv = $sth->execute 
@info = $sth->fetchrow_array;    
$rc = $sth->finish;

our $database;
$dbh = DBI->connect("DBI:mysql:$database");

$dbh->disconnect;