use strict;

use DBI;

my $dbh = DBI->connect('dbi:Sybase:server=foo', 'user, '***');
my $sth = $dbh->prepare("select convert(date, getdate()), convert(time, getdate())");
$sth->execute;

while(my $r = $sth->fetch) {
  print "@$r\n";
}