$ perl -e 'system("ls") while 1'