while(1) { $x = ; print "$x\n"; }