use DBI;
use strict; 

1.Open a connection 
my $dbh = DBI->connect("dbi:DB2:omer1", "administrator", "omer2312", {RaiseError => 1});

1.use VALUES to retrieve value from special register
my $stmt = "Values CURRENT DATE";
my $sth = $dbh->prepare($stmt);
$sth->execute();

1.associate variables with output columns...
my $col1;
$sth->bind_col(1,\$col1);
while ($sth->fetch) { print "Today is: $col1\n"; }
$sth->finish();
$dbh->disconnect();