C:\>perl -e while(1){}