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;