現在時刻を文字列として保存する

my ($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time); $year+=1900; $mon++;
my $current_datetime = sprintf("%04d/%02d/%02d %02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec);

注
localtimeで返ってくる値は、年が1900、月は0から始まるため、通常の表記に戻すには定数を加算すればよい。

参考
http://perldoc.perl.org/functions/localtime.html