Help for this page

Select Code to Download


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

...
    @data and push @Forking::Amazing::ids, [ $slotnow, shift @data ];
    },
  map [ $_, shift @data ], qw( one two );
  2. or download this
    started one  sleep(10)
started two  sleep(4)
...
started two  sleep(6)
  ended one - 15
  ended two - 6
  3. or download this
    package Forking::Amazing;

...
There is no return value.

=cut