#!/usr/bin/perl
use strict;
use DBD::Pg;

my $dsn = "dbi:Pg:dbname=asterisk;host=www.ibm.fr";         
my $dbh = DBI->connect($dsn,'asterisk','secret') or die $DBI::errstr;;
my $sql = 'SELECT CURRENT_TIMESTAMP, LOCALTIMESTAMP';
print join "\n",$dbh->selectrow_array($sql);
$dbh->disconnect;