Select Code to Download

This is a nifty file, eh?
NP   Some  U and some other Pu
32   40    1 30  20   123.1 -120
And some other stuff

use IO::File;
my $file = IO::File->new;
...
      }
   } # end of if
} # end of until