johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -MTime::Piece -E ' my $tp = localtime(); say qq{2-digit year - }, $tp->yy();' 2-digit year - 19