Select Code to Download

foreach my $node ( @devices ) {
    if( $do_fork ) {
...
        do_exciting_things();
    }
}

use POSIX;
my $do_fork = 1;
...
        ...
    }
}