1、time函數：返回從1970年1月1日起累計的秒數
使用：my $t=time();

2、 localtime函數：獲取本地時區時間
使用：my $t=localtime(time());

3、gmtime函數： 獲取格林威治時間
使用：my $t=gmtime(time());

得到格式化時間(以localtime函數為例)：
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
上式中前三個表示秒、分、時,中間三個是天數、月數(從0開始計數)、年份(相對1990年)，最后三個分別是一周第幾天(周幾) 、一年第幾天、夏令時有效標識。

通過sprintf來格式化時間：

my $format_time=sprintf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec);
得到形如：2010-8-30 21:00:00 格式的時間。
另外，還可以通過Perl的Date模塊來取得格式化的時間。