perl:日期转换,date->unixtime

#!/usr/bin/perl

use Class::Date qw(date);

$unixtime = date("2002-03-03 10:06:54")->epoch;

print $unixtime ."\n";

$unixtime = date("2002-03-03 10:06");

print $unixtime ."\n";