Select Code to Download

# perl 5.10
sub ENDOFITERATION { undef }; # some magic value that signals the end 
+of all values
...
        };
    };
};

# Read incoming commands - an infinite loop/generator
sub get_commands {
...
        print "$user: Executing $command\n";
    };
};