Select Code to Download

open my $fh => $file or die "Failed to open $file: $!\n";
my $last = "";
...
    $last = $_;
}
close $fh;