gistfile1

sub run_command {
  my $self = shift();
  my $cmdname = shift();
  my $dir = tempdir();
  INFO("running commmand \`$cmdname\':\t");
  my $cmd = system("$cmdname 1>$dir/out.txt 2>$dir/err.txt");
  my $output = slurp("$dir/out.txt");
  my $error = slurp("$dir/err.txt");
  if ($cmd == 0) {
    INFO("SUCESS");
    DEBUG("OUTPUT:\n$output" . "END_OF_OUTPUT");
  } else {
    ERROR("ERROR in command \`$cmdname\'". ":\n$error". "END_OF_ERROR");
  }
  return $cmd;
}