#!/usr/bin/perl
use strict;
use utf8;
use Encode;
use Encode::Guess;

my $cp = "4FAE"; #　「侮」のコードポイント
my $packed = pack("U", hex($cp));
print $packed, "\n";

ありがとうできました。でもwarningがでます。
$ perl cptest2.pl
Wide character in print at cptest2.pl line 9.
侮
$