...

/usr/share/doc/perl-IO-HTML/examples/detect-encoding.pl