use strict;
use warnings;
use $result;
$result = `perl -MDOS::Try -e"print qq(\xe4)"`;
print $result;