スクリプト自体の文字コードが分らないからなんとも言えないけど
shiftjisなら

use strict;
use warnings;
use Encode qw/from_to/;
use Encode::JP::H2Z;
my $str = "ｱｲｳｴｵ";
from_to($str,'shiftjis',"euc-jp");
Encode::JP::H2Z::h2z(\$str);
from_to($str,"euc-jp",'shiftjis');
print $str;

euc-jpだったらfrom_toいらない