建立新的 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