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

##</code><code>##

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