package My::DB;
    use strict;

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

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