#!/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";