install_driver(Sybase) failed: Can't locate loadable object for module DBD::Sybase in @INC (@INC contains: C:/Perl/site/lib C:/OTRS/Perl/site/lib C:/OTRS/Perl/l
ib .) at (eval 4) line 3
Compilation failed in require at (eval 4) line 3.
Perhaps a module that DBD::Sybase requires hasn't been fully installed
 at P2.pl line 10

##</code><code>##

#!C:/Perl/bin -w 
use lib 'C:/Perl/site/lib';
use MIME::Base64;
use DBI;

$user = "sa"; 
$password = "abc123";


$dbh = DBI->connect
("dbi:Sybase:server=PUNDTGYDNB1S",$user, $password) or die "Cannot Connect";
$dbh->do("use pubs2");

my $SQL = "SELECT * FROM authors"; 
print "The query returns the following list of authors:\n";

while ($connection->FetchRow())
{
    ## Translate the row into something usable. In this case I am changing
    ## to a hash so I can use key names (CustomerID, CompanyName) rather than
    ## integer values (0, 1). If I wanted to use integer values, I'd use the 
    ## Data() method instead of the DataHash() method.
    my %dataRow = $connection->DataHash();

#    print $dataRow{CustomerID} . " : " . $dataRow{CompanyName} . "\n";
    print $dataRow{au_id} . " : " . $dataRow{au_lname} . "\n";
}

## Closing the database connection
$connection->Close();