Select Code to Download

#!/usr/bin/perl -w

...
my $encoding = get_encoding_from_filehandle(FH);
print $encoding . "\n\n";

use Encode::Guess;
my $decoder = guess_encoding($arg->{String}, 'latin1');
...
} else {
    return 1;
}