print "charEncoding string val = " . $enc->($val) . "\n\n";
#prints charEncoding string val = 歡迎來到雅虎!

  my $encoded = $enc->($val);
  print "\n charEncodingo $encoded == $val " ;
#prints charEncodingo 歡迎來到雅虎! == 歡迎來到雅虎!