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