Select Code to Download

sub work_n_save {
    ...  ## whatever
...
        print {$fh_new} $line, $/;
    }
}

open my $fh_new, '>', $filename . "_Result" or croak "can't open file:
+ $!";