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

##</code><code>##

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