my $request = HTTP::Request->new(GET => $url); $request->referer($referer); my $response = $ua->request($request); my $content = $response->decoded_content; #my $content = "รค"; open(CONTENTFILE, ">:encoding(UTF-8)", "$dir/$page"); print CONTENTFILE $content; close(CONTENTFILE);