Select Code to Download

$ perl -MO=Deparse,-p
#!perl
...
print "sprintf month= " . (sprintf "%02d", localtime->mon() + 1) . "\n
+";
print "sprintf day= " . (sprintf "%02d", localtime->mday()) . "\n";
^D

use Time::localtime;
BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU"}
...
print((('substr day= ' . substr(('0' . localtime()->mday), (-2))) . "\
+n"));
print((('sprintf month= ' . sprintf('%02d', (localtime()->mon + 1))) .
+ "\n"));
print((('sprintf day= ' . sprintf('%02d', localtime()->mday)) . "\n"))
+;