Core module Time::Local will do the trick, if you have the date already parsed out.

# 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);
[download]