use Compress::Zlib;eval uncompress 'x\x9c]\x8f\xd1\x8e\x820\x10E\xdf\xfd bFi\x93Y@\xdf\xdcZ\x97\xff0\xa4Qh\xa5\x09\xb4\x04 \xae!\xfc\xfbR\xe0i\xdff\xee\xdc{n&\xed9QZa\xa7\x7f\xb1\x93\x834(\xf5\xabD\xa3\x8d\xa4,\x1d8\x09C\xac\x1f\x0d\x88H\xa05\x12\xdd\xdb\xa2+[)Q\xd9\xbeE\xa5\x07\xf9/\xeb\x960:\xbfV\x8b\xea\xde\xb2\x9am+\xc6I\xaf\x94\xba]\x01iOY\xd7?\x035\x12\x02\x8e\x83\xb8\'\x19\xbd].\xc7#\x0cwp\xf1)I\xb2\xa8\xecM\xd1\xcaB\xd0\xc8\x9b\x0e|\x16\xe9\xf5\x9c\xfc,\x96\xec\x9bl\xe4\x8f\xf0U\x1b=T\xb6\x0d=~\xa5|\x9d\xb3h\xb1\x1fNs\x01\x9b\xe6+\x18r\xbd\xd1\xb1\xfe\x80`~\xcd\xfd\xaf\xae\xb4}\xf70\x85\xc0ZW\x95\xb6F\xe0s\x1b\xe8\x08\x82+\x025\x8d \x8f@\x04ZA\xcd\xc1\xcc\xc4$a`b\xbe\x0cS^\xda\x86u\xb1\x88\x83\xf8\xc5\x9aV\x1b\xb7\x07\xb1\xdb\xb3i\xf7\x07\xb0}sq'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).