Select Code to Download

open(my $IN,'<','in.txt') || die "cannot open in.txt - $!\n";
my @output;
while(<$IN>)
...
        push (@output, $_);
        @output = sort @output;
}