Perl : 指定时间字符串格式(如"年月日")

use Date::Format;
my $year_mon_mday = time2str( "%Y%m%d", time );
#$year_mon_mmday : 20090809