Select Code to Download

sub connect {
    return eval {
...

my $dbh = connect()
   or die("Can't connect: $DBI::errstr\n");