in reply to How to hide exit and die

To improve your obfuscation, you could also use rot13, and undo that in the eval: 
my $etriped = 'rkvg';
$etriped =~ tr/a-zA-Z/n-za-mN-ZA-M/;
eval("$etriped");

[download]

-QM
--
Quantum Mechanics: The dreams stuff is made of

In Section Seekers of Perl Wisdom