日付から UNIX time を求める

Perl localtime timelocal UNIX 
use strict;
use warnings;

use Time::Local;

my $year = 2009;
my $mon  = 3;
my $mday = 11;
my $hour = 0;
my $min  = 0;
my $sec  = 0;
print timelocal($sec ,$min ,$hour ,$mday ,$mon - 1 ,$year);

#http://www.rfs.jp/sb/perl/05/localtime.html

__END__
#http://colabv6.dan.co.jp/lleval.html
#http://blog.livedoor.jp/dankogai/archives/51186815.html

mimic28号でした。