#FOR WORKING WITH UTF8, AS NECESSARY WITH CJK
use Encode;

#PARTICULARLY NEED THE ENCODE/DECODE FUNCTIONS
use Encode qw(encode decode);			

#TO MAKE THE DEFAULT STANDARD ENCODING BE UTF8
use open qw( :std :encoding(UTF-8) );	

#LIKE print CGI::header(); FOR UTF8 OUTPUT TO HTML
print "Content-type: text/html; charset=utf-8\n\n";  

#SET DEFAULT I/O TO UTF8
binmode STDOUT, ":utf8";

#OPEN/READ A UTF8 FILE
open (DAT, '<:encoding(utf8)', $Data) or die "Can't open file! $!\n";
$source = <DAT>;
close DAT;