Select Code to Download

#!/usr/bin/perl
use warnings;
...

__END__

#!/usr/bin/perl
use warnings;
...
$charset = Encode::Detect::Detector::detect($octets);
print "$charset\n";