in reply to DBD::Sybase $sth->rows returns -1

Hi Perl300 :)

You don't need a Commit on Select statements.

Don't forget to close the connection with $dbh->disconnect;
I think it's a good practice to set the RaiseError flag.

Example:
my $dbh = DBI->connect('DBI:Oracle:payroll', {RaiseError => 1}) or die "Couldn't connect to database: " . DBI->errs +tr;
Peace