Select Code to Download

use PerlIO::encoding;
$PerlIO::encoding::fallback = Encode::FB_DEFAULT;

#!/usr/bin/perl
use PerlIO::encoding;
...
binmode STDOUT, ":encoding(UTF-8)";

while (<$fh>) { print }

foo
bär