help neeed in identifying file encoding

[uva]

dear monks,
refer to help needed in file encoding this also,
In the below,i tried to compare the BOM in order to identify whether the file is encoded in utf8 or not.
but i got problem over here ,
this program gives output as "its utf8" , for all the files even for non utf8 encoded files also.

use bytes;
open IN,"<d:\\input.txt" or print "could not open the input file";
read IN,my $text,6,0;
print "its utf8" if (chr(0xFEFF)==$text) ;
close IN;

GrandFather fixed links and bOrked br tags.

[Aristotle]

You are using the numeric equality operator == to compare strings. Most strings numify to 0, so you end up testing a 0 == 0, which is true. Use the string equality operator eq instead.

That won’t work either, though, since under use bytes your chr 0xFEFF will simply produce chr 0xFF – not what you’re looking for.

[idsfa]

You can use File::BOM to determine the encoding of a file:

open $fh, '<', 'd:\input.txt' or die 'Could not open file';
$encoding = get_encoding_from_filehandle($fh);