eval {
    local $SIG{ALRM} = sub {die "alarm";};

    alarm(20);

    $return = `foo -options_here`;

    alarm(0);
  };
  if ($@) {
    if ($@ =~ /alarm/) {
      print "timeout\n";
    }
    else {
      die;
    }
  }