Select Code to Download

#!/usr/bin/perl
use strict;
...
  print $out $_;
}
close $out;

./encodingtrouble.pl input-encodingtrouble