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