>perl pad.pl substr month= 1 substr day= 09 sprintf month= 01 sprintf day= 09