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