use Time::Local;
my $epoch_seconds =
    timelocal($sec, $min, $hour, $mday, $mon, $year);