use Time::localtime; BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU"} use strict 'refs'; print((('substr month= ' . substr((('0' . localtime()->mon) + 1), (-2))) . "\n") ); 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"));