require DBI;
require DBD::mysql;


##</code><code>##

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


##</code><code>##

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


##</code><code>##

$dbh->disconnect;