Select Code to Download

    sub database_handle {
        my $dbh = DBI->connect("DBI:Sybase:CRAP", "sa", "");
        die "connect failed: $DBI::errstr" unless $dbh;
        $dbh;
    }

    my $dbh = database_handle();

    {
        my $dbh;
...
            $dbh;
        }
    }

    package My::DB;
    use strict;
...
    }

    sub handle { $_[0]->{handle} }

    my $dbh = My::DB->new->handle;

    sub _execute {
        my $self = shift;
...
        }
        return $finish ? $rv : $sth;
    }