use Time::Local;
my $time = timegm(0, 0, 0, $d, $m-1, $y);