Help for this page

Select Code to Download

Select or download this

while (my $line = <FILE>) {
   my $x = <FILE>;
   # ...
}