use Time::Local;
my $now = time(); #取当前的unix时间戳
my ($sec,$min,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime();
$year = $year + 1900; #注意$year表示它表示从1900年开始的年份,要处理
$month = $month + 1; #注意$month从 0开始(代表1月份)
use Date::Parse;
# str2time支持以下格式:
# Sat Mar 14 10:14:05 EDT 2015
# 3/14/2015 10:14:05 -0400
# 14/Mar/15 10:14:05
# 14 Mar 15 10:14:05
my $today = str2time("$month/$day/$year"); #取今天0点的unix时间戳