Select Code to Download

#!perl
use strict;
...
  my $dbh = DBI->connect($dsn, $user, $pw, { RaiseError => 1, AutoComm
+it => 1 } );
  return $dbh;
}

#!perl
use strict;
...

# whatever you need to get a connection
sub get_dbh{}