Select Code to Download

#!/usr/local/bin/perl -w
#
...

# and now the database handle
my $dbh = DBI->connect($db, $user, $auth) || die "Cannot connect!: $!\
+n$dbh->errstr";