>>39
あと、

my($sec, $min, $hou, $day, $mon, $yea, $wek) = localtime();

なんかも入れておくと便利。