--- writeback.orig	2003-07-02 01:53:49.000000000 +0900
+++ writeback	2003-07-02 01:55:25.000000000 +0900
@@ -57,6 +57,7 @@
 
 use CGI qw/:standard/;
 use FileHandle;
+use Jcode;
 
 my $fh = new FileHandle;
 
@@ -120,6 +121,7 @@
       foreach ( @fields ) {
         my $p = param($_);
         $p =~ s/\r?\n\r?/\r/mg;
+        $p = jcode($p)->utf8;
         print $fh "$_: $p\n";
       }
       print $fh "-----\n";