C:\>perl -w ts_test.pl 
  
,  , 
Day  in the month of , the year AD