Select Code to Download

   use strict;
   use Encode qw(encode decode);
...
+ap
    { encode('cp1047', $_) } @infile);
    print @sorted;

#!/usr/bin/perl -sw
     use vars qw/$N/;
    use strict;
...
      warn "Done.\n";
   
   exit (0);