Select Code to Download

#!/usr/bin/perl -w
use strict;
...
open NEWFILE, ">newfile.dat" or die "Can't open newfile for writing: $
+!\n";
print NEWFILE $file;
close NEWFILE;

$file =~ s/.*?\n\n//;