perl как получить полный месяц и дату?

Question

Если сегодня 1 января 2012 г., как вернуть строку с датой «20120101»?

sub getDateStr{
    my $date = shift;
    print $date->year.$date->month.$date->day."\n";
    return $date->year.$date->month.$date->day; 
}

Спасибо

Answer 1

Из ядра Perl:

POSIX::strftime( '%Y%m%d', localtime );

Answer 2

use Time::Piece;

$t = localtime()->strftime("%Y%m%d");

или проще

$t = localtime()->ymd("");

Answer 3

use DateTime;
print DateTime->now->ymd("");
print DateTime->now->strftime("%Y%m%d");
print DateTime->now->format_cldr("yyyyMMdd");