.
 .
 .
 ($encoding, $spillage) = get_encoding_from_filehandle(HANDLE);
 $bom_length = tell HANDLE;
 .
 .
 .