c:\test>perl -wle" printf qq[%08d\n], $_ for 1 .. 10; print 'quit' " | perl junk9.pl
Create terminal watcher...
Awaiting commands...
>00000001
>00000002
>00000003
>00000004
>00000005
>00000006
>00000007
>00000008
>00000009
Resolving open threads
>00000010