#!/usr/bin/perl
use strict;
use warnings;

if ($] >= 5.008) {

	# Japanese character(UTF-8N)
	my $check = '日本語';
	print "$check\n";	#日本語

	utf8::encode($check);
	print "$check\n";	#a?\a?￢ea?

}