Select Code to Download

use Encode qw(encode decode);

...
   my $foo   = decode('UTF-8', $readline);
}

use Encode qw(encode decode);

...
    $foo = encode('UTF-8', $foo);
    print {$output_fh} $foo;
}