perlでYYYYMMDD形式の日付を得る

こんな感じでおーけーヾ(*･∀･)ノ"

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
my $yyyymmdd = sprintf("%04d%02d%02d", $year + 1900, $mon + 1, $mday);