Select Code to Download

foreach my $node (@nodes) {
        chomp $node;
...
        my $node = delete $pid_to_node{$pid} or warn("Why did I see $p
+id ($?)\n"), next;
1;
}

#!/bin/perl
for ($i=0; $i<=10; $i++) {
...
sub Test {
        sleep 10;
}