use Taint; warn "Oops" if tainted $num, @ids; kill $num, @ids;