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