c:\test>perl -ne"}{print$." junk.out
20000001