Select Code to Download

#$Q_found->enqueue( $cmd ) ; # using this in place of async works

c:\test>junk9
Create terminal watcher...
...
john
quit
Resolving open threads

#!/usr/bin/perl
use strict;
...
>john
Resolving open threads
>mary

c:\test>perl -wle" printf qq[%08d\n], $_ for 1 .. 10; print 'quit' " |
+ perl junk9.pl
Create terminal watcher...
...
>00000009
Resolving open threads
>00000010