playing around with character encoding in perl

encode.pl

#!/usr/bin/perl
use utf8;
use Encode;
binmode STDOUT, ":encoding(UTF-8)";

$string = "カタカナ, 片仮名";
print "Internal Format: " . $string . "\n";
$octets = encode("utf8", $string);
print "Encoded as UTF-8: " . $octets . "\n";
print "Encoded as UTF-8(Unpacked as Hex): " . unpack("H*",$octets) . "\n";

open my $out, ">", "utf8text.txt" or die "Couldn't open file";
print $out $octets;

$octets = decode("utf8", $octets);
print "Decoded as UTF-8 to the internal format: " . $octets . "\n";

utf8.txt

カタカナ, 片仮名