Select Code to Download

perl -e"print qq(\xe4)"

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

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

package DOS::Try;
use strict;
...
close STDOUT;
open(STDOUT, ">&:encoding(Cp437)", $oldout) or die "Can't dup \$oldout
+: $!";
1