#!perl -pl use Compress'Zlib;eval uncompress 'x\x9cM\x8f\xd1n\xc20\x0cE\x7f%\xaa\x1c)!\x09\xa8\x16O\x14\x17\xbe\x84(\x11\xddV\x06\x04\xd1\xae\x08\x95\xec\xdb\xe7l/\x93\xfc\xe4\xe3{l\x7f\x0d\x9d\x88\xfd{\x7f\x1d\x1b\x89T7\x97p\x9b\x15x\x0bd!h\xda\x83o \x12xW\xbf\xea\x06\xbc\\xb7\xb8\x03\x92\xb8\xe3i\xa57@+\xc2\xcd1\xcd\xf8\xf8\xe8\xcf\xdd\xb7R\x10H\xc1h\x8cA\xed\xdaxI\xc7[z\xb0p\xb5\xb6\xe0\xb5^\xb0T\x16g \x88\x8bZ\xaa"\x0f\xfa7\x0c~\x8b\xcc\xb9r\xb9\xa5\2\xa4\xfb8Cp\x10s\x88Ca\xdepN\xc1D\x80\xb3\xe1^\xd6\xb6\x90\xc8\xc4\x15>\xe5\x92\xe3\x07\x1c\xf8\xfc\xd9=\x07\x89o\xe9.\xea\xe5\x12(\xef\xe7n \xe7m\x9b\xf9\x13:\xa5\xfeZ\x09\x12\x95\xfd\xb7\x85\xc3\x15\xf8\x03 #x\x01+\x0eX\xd9?\xcd\x0f<\xf4T\xf0'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).