Select Code to Download

use Time::Local;
my $time = timelocal($sec,$min,$hour,$mday,$mon,$year);
my @time_array = localtime($time);

date("t", mktime(0,0,0,$month,1,$year));