perl -e "for(;;){system('notepad')}"