Una manera:
my ($sec, $min, $hour,$mday,$mon,$year, $wday,$yday,$isdst) = localtime time;
$year += 1900;
$mon += 1;
my $date_log = "$year-$mon-$mday $hour:$min:$sec";
print "Date: $date_log\n";
------------------------------------------
Otra manera con comando de linux:
[wlamagna@monitor0 wlamagna]$ date -d 'Sat Dec 25 19:45:11 ART 2004' '+%s'
1104014711