Select Code to Download

    my $dbh;
    BEGIN {$dbh = DBI -> connect (...)}
    ...
    $dbh -> prepare (...);

    my $dbh = DBI -> connect (...);