perl -we 'my $x; while($x) { my $x }'