sub is_tainted {
  eval { () = (join('',@_), kill 0) };
  if ($@) {
    if ($@ =~ /^Insecure dependency/) {
      return 1;
    }
    else {
      die $@;
    }
  }
  else {
    return 0;
  }
}