#!/usr/bin/perl
$or="\x70\x72\x69\x6E\x74";
$JaPh="open\t$or,\"JaPh\"\tor\t\$eval=\$\x21;close\t$or;$or(\"\$eval\"^\""."\".''.\"".'\x4\x1aS\aU\x2\x6\x4f\x12\x1\t\x17\x?\x17R\x8I\x1a\x4\x\x1f\xa\xy");';
eval $JaPh;