perl -e"print qq(\xe4)"

##</code><code>##

perl -MDOS::Try -e"print qq(\xe4)"

##</code><code>##

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

##</code><code>##

package DOS::Try;
use strict;
use warnings;

open(my $oldout, ">&STDOUT")     or die "Can't dup STDOUT: $!";
close STDOUT;
open(STDOUT, ">&:encoding(Cp437)", $oldout) or die "Can't dup \$oldout: $!";
1