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