Select Code to Download

#!/usr/bin/perl
use DBI;
...
     or die "Could not connect to database :".DBI->errstr;
  return $dbh;
}