./tsql -p 1433 -S DB -U test -P test 
locale is "C"
locale charset is "ANSI_X3.4-1968"
1> 


##</code><code>##

use DBI;


          my ($user_id,$pass,$dsh,$sth,$dbh);
          $user_id = 'test';      # username
          $pass = '';           #password
          $hostname='station100';     #hostname
          $port='1433';        # mssql server port
          $databasename='HHC_PORTAL_GUI'; # database name
          $tablename='Services';
          $ser='HHC_DS';
  # Connect to the MS SQL database

        $dbh = DBI->connect("dbi:Sybase:host=$hostname;port=$port;server=$ser;database=$databasename", $user_id,$pass,{PrintError=>'1',RaiseError=>'1'});