$ perl test.pl
Wide character in print at test.pl line 10, <$in> line 1.
$