use CGI;
use DBI;
##  ...
$dbh=DBI->connect($dsn,$user,$password) or die $DBI::errstr;
##  ...
[download]

You must look into the documentation of DBI.