# If the date is in local time.
use Time::Local qw( timelocal );
my $time = timelocal(0, 30, 13, 10, 2-1, 2006);

# If the date is in GMT.
use Time::Local qw( timegm );
my $time = timegm(0, 30, 13, 10, 2-1, 2006);