in reply to beretboy's .sig

Um, damn straight don't run this with warnings turned on:
system 'rm *' if $^W;
I really wish you had used this instead:
!($^W)&&system("rm $0");
We are suppose to encourage the use of warnings, not punish! Bad beretboy! >:(

Reminder:

perl -MO=Deparse japh.pl
is a good thing to do before you execute it.

(and yes, it will execute with warnings turned on)