use DBI;                                                     
                                                              
my $data_source = "dbi:Sybase:database=SynergyOne;server=MSSQL";    
my $username = 'sa';                                                
my $auth = '';                                                          
                                                                        
my $dbh = DBI->connect($data_source, $username, $auth) 
or die "no connection: $DBI::errstr";                             

##</code><code>##

  
[tbone@MDB tbone]$ ~/bin/db-connect.pl 
DBI connect('database=SynergyOne;server=MSSQL','sa',...) failed:  at /home/tbone/bi\
n/db-connect.pl line 9 
no connection: OpenClient message: LAYER = (1) ORIGIN = (2) SEVERITY = (6) NUMBER = (151) 
Message String: ct_connect(): user api layer: internal Client Library error: A connection to the server must exist on the connection structure before this routine can
 be called. 
[tbone@MDB tbone]$