Select Code to Download

my $line;
my @fields;
...
      or ( warn "a problem on line $.:$_" );
   # rest of code ...
}