Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl
# John's first japh!
...
undef,'x'=>'ylHw','N'=>'AG8p','b'=>'eJzz');$japh;foreach (@k){next 
unless $h{$_};$japh.=$h{$_};};print uncompress(decode_base64($japh
))."\n";

Select or download this
```
ť ./japh.pl
Just another Perl Hacker
```