Select Code to Download

while (<REIN>) {
    chomp();
...
    close $RAUS;
} 
close(REIN)

while (<$REIN>) {
    my $out_file_name = "out_file_nr_[$.]"; # $. is the line number on
+ the last read file handle
...
    close $RAUS;
} 
close(REIN)