sub xdie { $! = shift; die $@; }

xdie 16, "argh";