Yet another perl hacker playing with the symbol table:

package _;($a,$b)=(q|sub |,q| {}|);
for(split(//,qq{\x59\x68})){eval($a.$_.$b)}
print(map{s/\x62/\x70/;$_}sort(keys%{*_::}))
[download]

--
Jaap Karssenberg || Pardus (Larus)? <pardus@cpan.org>
>>>> Zoidberg: So many memories, so many strange fluids gushing out of patients' bodies.... <<<<