Select Code to Download

while (my $line = <INHANDLE>) {
   ...
} continue {
   ... if eof(INHANDLE);
}

while (my $line = <INHANDLE>) {
   ...
}

...