Select Code to Download

#!/usr/local/bin/perl
use strict;
...
                   foreach(@sorted) {
                  printf $sort_fh "$_\n";
                  }