View difference between Paste ID: 2wzFFJPk and QUmGaCVN

 use CGI qw( -utf8 );
 use CGI::Carp qw(fatalsToBrowser);
 use utf8;
 
 $cgi=CGI->new();
 
 print $cgi->header();
 
 $page        = $cgi->param('page');
 $root_dir = "/home2/godspla1/public_html/romanian";
 
 $root_dir =~ s|/$||; #get rid of trailing slash
 
 open (RESULTS, "$root_dir/$page")
   or die "Can't open results page ($root_dir/$page): $!";
 binmode STDOUT, ":utf8";
 open (my $fh, ">:encoding(utf8)", "$root_dir/temp.txt" ) or die "Can't open file ($root_dir/temp.txt): $!";
 while ( <RESULTS> ) {
      print "ă\n";
      print $fh "ă\n";
 }
 close $fh;
 close RESULTS;