Perl, localtime, и гадость на выходе.

[Oleg Gaier <pilgrim@gmx.net>]

Привет всем. :)

Тут возникла у меня маленькая проблема.
Вот пишу такой вот скрипт:

#!/usr/bin/perl
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time());
print "Sec =\t$sec\n";
print "Min =\t$min\n";
print "hour =\t$hour\n";
print "mday =\t$mday\n";
print "mon =\t$mon\n";
print "year =\t$year\n";
print "wday =\t$wday\n";
print "yday =\t$yday\n";
print "isdst =\t$isdst\n";

И получаю на выходе такую гадость:

Sec =   9
Min =   13
hour =  21
mday =  3
mon =   0		#	 Вот в этих строчках проблема. :(
year =  101		#	Сделано это было только что.
wday =  3
yday =  2		#
isdst = 0     

gaier@athlon:~ > perl -v 
This is perl, version 5.005_03 built for i586-linux       

Подскажите пожалуйста, что я не так делаю.

Заранее премного благодарен.

Олег