Select Code to Download

use DBI;

my ($dsn) = "DBI:mysql:cpc:localhost"; # data source name
...
# read results of query, then clean up
while (@ary = $sth->fetchrow_array ())
{

}
$sth->finish ();
...

$/ = $tmpstr;
}