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模块来取得格式化的时间。