Select Code to Download

&qsub("qsub $qsub_options $subscript $script_args",
"Some files are broken");

sub qsub {
    my ($cmd, $error_message) = @_;
...
    if (($exit_code > 0) || ($stderr)) { 
    die "$error_message\n"; }
}