Select Code to Download

my $dbh = DBI->connect($db, $username, $pass) || die $DBI->errstr();

my $dbh->do($sql) || die $dbh->errstr();