Приветы всем!
Cистема FreeBSD 5.2.1, perl v5.6.1

пишу следующее:
#!/usr/local/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$s_dat=`/bin/date '+%Y\ %m\ %d\ %H\ %M'`;
print $s_dat;
print "$year $mon $mday $hour $min \n";

выполняю:
./test.pl
2004 12 19 06 49
104 11 19 6 49

почему год и месяц отличаются? это грюк, или так нужно?

Мне нужно из секундного варианта (time) преобразовывать в вариант '+%Y\ %m\ %d\ %H\ %M', и обратно, подскажите как лучше всего это сделать.

Спасибо.