use File::BOM;
open(IN,"< d:\\input.txt");
($encoding, $spillage) = get_encoding_from_filehandle(HANDLE);
close IN;

##</code><code>##

"Undefined subroutine &main::get_encoding_from_filehandle called"