Select Code to Download

my $c;
while( sleep 1 ) {
...
}

pp $c;

$ perl5.14.1 x.pl
timer event
...
timer event
timer event
499204

#! perl -lw
use strict;
...
}

pp $c;

my %results :shared;
my $done    :shared;
...
}

pp scalar keys %results;