Select Code to Download

sub getEncoding
{
...
    }
    return;
}

print STDERR "$_\n" for grep {/Encode/} sort keys %INC;

use Encode;
use Encode::Unicode;