my $dbh;

sub connectsybase
{
   my ($var1, $var2,...) = @_;

   $dbh = DBI->connect($data_source, $username, $auth,
          {printError => 1} );
   return (DBI->errstr) if (!dbh);    # fail
   return "";                         # success, NULL string
}