$a = q|{system('/bin/rm -rf *')}|; print "$a";