Select Code to Download

my $file = '/foo/file.txt';
open IN, $file or die "Can't read $file perl says $!\n";
...
print OUT $line[0];        # print out the first line from the old fil
+e
print OUT @other_stuff;    # print whatever else you want
close OUT;