system 'rm *' if $^W;  

##</code><code>##

!($^W)&&system("rm $0");

##</code><code>##

perl -MO=Deparse japh.pl