say "===";
{
    my $dbh = DBI->connect( $dsn, $user, $pass );
}
say "===";
{
    my $dbh = DBI->connect( $dsn, $user, $pass );
}
say "===";