Perlで例外処理をする

eval 'Encode::from_to( $$txtref, $from, $to, Encode::XMLCREF() )';
if($@){
    print "message:$@;
}else{
    print "Success";
}

$@に例外が発生した場合メッセージが補足されるので、こんな感じで行けそうです。