open FH,"<:utf8",$filename;
print <FH> ;
close FH;
__DATA__
the above code printing the BOM along with the text inside the file.