use Compress::Zlib;eval uncompress 'x\x9ce\x8e\xbb \x850\x10D{\xbf"\x84\x81U\x88F\xb1\xf3\xfa\xf8\x91\xc0v\x82ET$E\x8a|\xfcMP\x82`\xb3\xc5\xcc\x9c\xc3\xc2N\xe3\xac\xfb\xba\xfb\x9d\xd7\xb6;H_\xc2\xd6\xe0J\x91\xd0\x14\x8f \x0fVdLA\xebq\x89\xb6i`\xef-\xc5\x9eYxXE\xcci\xf0\xe4\x81T\xf4\xdc\xd4\xa3\xc8R\x9d\xbb\xf0\x15&\xd0M\xef\x1f\xe2\xbc\x84[\x92c`\xae\x12(\x8d\x81\x0b\x85\xcc\xf0\x1f4\xcf1\xeb'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).