Select Code to Download

#!/usr/bin/perl
use strict;
...
  open(my $fh,'>',$file) or die "Can't open $file";
  print $fh join("\n",@new_lines);
}