open (my $page, ">:utf8", $news) or die $!;
  print $page @xxxx;
  close $page;