もう一字縮めとく

@A=@ARGV;$D=$A[2]-1;$D+=365+!($_%4)for 1970..$A[0]-1;$D+=$_-2?31-$_*.86%2:28+!(
$A[0]%4)for 1..$A[1]-1;print$A[5]+60*(60*(24*$D+$A[3]-9)+$A[4]),$/;