コードをUTF-8で記述して、shiftjisで出力例

use utf8;
use Encode;
binmode STDOUT, ":encoding(shiftjis)";

$hoge = "ほげ";
print utf8::is_utf8($hoge) ? 'UTF-8 Flag' : 'not UTF-8 Flag';
#print encode("shiftjis", $hoge);
print "\n";
print $hoge;
print "\n";
print "あひゃひゃひゃ";