创建新的 DateTime

在你的 PC 上安装 DateTime，然后在 perl 脚本中使用它：

use DateTime;

创建新的当前日期时间

$dt = DateTime->now( time_zone => 'Asia/Ho_Chi_Minh');

然后，你可以访问元素的日期和时间值：

$year   = $dt->year;
$month  = $dt->month;
$day    = $dt->day;
$hour   = $dt->hour;
$minute = $dt->minute;
$second = $dt->second;

只获得时间：

my $time = $dt->hms; #return time with format hh:mm:ss

只获得日期：

my $date = $dt->ymd; #return 日期格式为 yyyy-mm-dd