Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;

$|=1;
print "$_\n" and select(undef,undef,undef,0.1) for 1 .. 1000;
  2. or download this
    #!perl -slw
use strict;
...
# the signals SIGSTOP and SIGCONT do not exist for Windows 

$mw->MainLoop;
  3. or download this
    #!perl -slw
use strict;
...
            })->pack();

$mw->MainLoop;