Wrong date function

Hi,

I am getting some very strange output when using date function in PERL on Solaris.

Infact the month portion is wrong and it is 1 less then the current, means today it is responding as

month =3 , andthis should be 4 ------> April

Any help

my code is

($day, $month, $year) = (localtime)[3,4,5];

print $day;
print $month;
print $year;

Infact the month portion is wrong and it is 1 less then the current, means today it is responding as 

month =3 , andthis should be 4 ------> April

Month starts from zero and this is not an error.

from the Perl manuals:

THx for Help.