use Time::Local;
my $time = ($sec,$min,$hour,$day,$month,$year);