Select Code to Download

 
open (IN, "<:encoding(UTF-8)", "D:/wordpress/wordpress.2011-04-12.xml"
+);

  open(my $fh, "<:encoding(UTF-8)", "filename")
    || die "can't open UTF-8 encoded filename: $!";