$ENV{'TDSVER'} = '7.0';
my $DBhandle = DBI->connect( "DBI:Sybase:host=$Hostname;port=$Port;database=$DBName", "$UserID", "$Pwd", { syb_err_handler => \&SybaseErrorHandle } );