binmode(STDOUT,":utf8"); open(FILE,"<:utf8", "$file"); my @Lines = ; close(FILE); $page = "". join("",@Lines) .""; print "Content-Type: text/html; encoding=utf-8\n\n"; print $page;