1. while (<>) 2. my $handle = new IO::File; This however _is_ parsed correctly: while (1)
This however is parsed correctly: while (1)