過去ログのdat探しに逆localtimeを作ったやつなんですけど、ついでなんでもうちょっと短くできないでしょか？
エラーチェク付きもあったけど、とりあえず短い方で
使う時は、引数は３〜６こで、年 月 日（時 分 秒）です

l2t.pl----------------
@A=@ARGV;$D=$A[2]-1;push@M,$_-2?31-$_*.86%2:28+C($A[0])for(0..$A[1]);$D+=C($_)?
366:365for(1970..$A[0]-1);$D+=$M[$_]for(1..$A[1]-1);print 60*(60*(24*$D+$A[3]-9
)+$A[4])+$A[5],$/;sub C{$R=$_[0]%4?0:1;$R=$_[0]%900-200||$_[0]%900-600?0:1if(!
$_[0]%100);$R}