#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $dsn = 'DBI:Sybase:host=myhost;port=1433;database=mydb';


my $dbh = DBI->connect($dsn, "user", 'pass');
die "unable to connect to server $DBI::errstr" unless $dbh;

$dbh->do("use mydb") or die "couldn't change database";

my $query = "SELECT * FROM Session";
my $sth = $dbh->prepare ($query) or die "prepare failed\n";
$sth->execute( ) or die "unable to execute query $query   error $DBI::errstr";

my $rows = $sth->rows ;

while ( @first = $sth->fetchrow_array ) {
   foreach $field (@first) {
      print "field: $field\n";
   }
}

Global symbol "@first" requires explicit package name at test.pl line 20.
Global symbol "$field" requires explicit package name at test.pl line 21.
Global symbol "@first" requires explicit package name at test.pl line 21.
Global symbol "$field" requires explicit package name at test.pl line 22.

DBI connect('host=myhost;port=1433;database=mydb','user',...) failed: Server message number=4064 severity=11 state=1 line=0 server=Servername\Instancename text=Cannot open user default database. Login failed.
Server message number=18456 severity=14 state=1 line=0 text=Login failed for user 'user'.
OpenClient message: LAYER = (0) ORIGIN = (0) SEVERITY = (78) NUMBER = (34)
Server , database 
Message String: Adaptive Server connection failed
 at test.pl line 9
unable to connect to server Server message number=4064 severity=11 state=1 line=0 server=Servername\Instancename text=Cannot open user default database. Login failed.
Server message number=18456 severity=14 state=1 line=0 text=Login failed for user 'user'.
OpenClient message: LAYER = (0) ORIGIN = (0) SEVERITY = (78) NUMBER = (34)
Server , database 
Message String: Adaptive Server connection failed