try using this:

use Time::Local;
my $epoch_secs=timelocal( $sec, $min, $hrs, $dd, $mm-1, $yy);
[download]