use Time::Local;
my $time = timelocal(0,0,0,$mday,$month,$year);