package JasminesDB; use strict; use DBI; sub db_connect(){ $dbh = DBI->connect("DBI:Sybase:CRAP", "sa", "") || die ("Can't connect to database: $DBI::errstr"); return $dbh; } 1;