Select Code to Download

my $r = {};  # hash to hold the parsed record
while (<IN>) {
...
  my $r = shift;
  ...
}