while (my $line = <$rdr>) {
     [...]
   }