use Time::Local;
my $time_secs =
    timelocal($secs, $min, $hour, $day, $mon, $year);

##</code><code>##

perldoc Time::Local