But you should have mentioned what your code also does: it creates (and ocassionally overwrites) a file named x in the current directory (and doesn't clean up later).

I have files called x, they are mostly q&d hacks, but the one which lives in ~/bin is an xterm dispatching menu written in perl Tk...

Although it is easy to spot in your program (the call to open is in the dot), I found it worth mentioning that it should be run in a temporary folder.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}