use IPC::Run::Simple;
  run("some", "command")
    or die "command failed";

  # better done as
  use IPC::Run::Simple qw(:all);
  run("some", "command")
    or die "badness! $ERR";