#!/usr/local/bin/perl
#
# UTF-8 stdout <- EUC-jp stdin
#
# Sep. 22, 2002 TOMINAGA Daisuke

use 5.8.0;
use Encode;
use Encode qw(from_to);

while (<>) {
  from_to($_, 'euc-jp', 'utf8');
  print $_;
}