sub qsub {
  my ( $args, $msg ) = @_;
  my ($stdout, $stderr, $success, $exit_code) = capture_exec( $args );
  if(  not $success or $exit_code > 0 or length $stderr ){ 
    die "$error_message ( exit_code $exit_code )( stderr $stderr )\n";
  }
}