use Oracle::Procedures qw(sysdate);
my $conn = DBI->connect(..);
print sysdate($conn);