Select Code to Download

# 1. open the file 
open FILEHANDLE, $filename or die $!;
...

# 6. repeat to end of file 
}

{   # note the {} brackets. This concerns the scope of the next line.
    local $/;  # sets $/ = undef for this block only.
...
    print FH $_, $/;
    close FH or die $!;
}