exec "perl -e 'while(){}'";