Select Code to Download

#! perl -slw
use strict;
...
    warn( "0: Sleeping\n" );
    yield;
}

my @sems = map{ my $var :shared; \$var } 0 .. $T;