Select Code to Download

while(<PAGE>)
{
...
     }
}
close(PAGE);

start
end

while($_ = <PAGE>)
{
...
     }
}
close(PAGE);

my $line;
while($line = <PAGE>)
...
     }
}
close(PAGE);