Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

$|=1;
print "$_\n" and select(undef,undef,undef,0.1) for 1 .. 1000;
  2. or download this
    #!/usr/bin/perl

...
$ProcessObj->Resume();
sleep(3);
$ProcessObj->Kill(0);
  3. or download this
    #!/usr/bin/perl

...
$ProcessObj->Resume();
sleep(3);
$ProcessObj->Kill(0);