my $oldCP = $c->OutputCP();
$c->OutputCP(65001); # we write UTF-8
END{
    if( $c ) {
        $c->OutputCP($oldCP); # we write UTF-8
    }
}
...