linux中perl的时间处理

#!/usr/bin/perl

use POSIX qw(strftime);

$dtime = strftime "%Y%m%d", localtime(time()-2*86400); # one day ago
print "$dtime \n";

 

$day = system("date -d '2 day ago' +%Y%m%d");
print $day;

 

#$nday = `date -d "2 day ago" +%Y%m%d`;
#print $nday;

第一种最合适一些，需要装模块。第二第三种linux系统的更容易了解，第三种为什么总是开头多个0呢，如果是用perl -e 'print $nday=`date -d "2 day ago" +%Y%m%d`;'就没有问题，为什么呢？谁能留言告诉我，多谢了。