#!/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\x
+4\x\x1f\xa\xy");';
eval $JaPh;
[download]

I'm a little worried that it might depend on some system specific features, so feedback is much appreciated, on this particular thing and my JaPh in general.

I realise it doesn't quite adhere to the JAPH standard (there's a trailing null character) but I couldn't be bothered fixing it. And I've used far too many \x.. characters...