#!perl
use strict;
use DBD::Oracle;

runThis("BEGIN :now  := CURRENT_TIMESTAMP ; END;");

sub runThis { 
   my $procT = shift;
   my $dbh1=DBI->connect(
      'dbi:Oracle:host=localhost;sid=xe','user','password', 
      {RaiseError => 1 , PrintError => 0} );     
   
   my $now = '';   
   my $sth1 = $dbh1->prepare($procT); 
   
   $sth1->bind_param_inout(":now",\$now,0);
   $sth1->execute;
   $dbh1->disconnect; 
   print "time now is $now\n";
 }
[download]