print "Content-type: text/html; charset=EUC-JP\n\n";
use CGI; my $q = new CGI; print $q->header('text/html;charset=EUC-JP');