Help for this page
binmode *STDOUT, ':encoding(UTF-8)';
sub convert { my ($s) = @_; ... binmode STDOUT, ':encoding(UTF-8)'; print "School: " . $decoded_json->{'school'} . "\n"; # Eötvös Loránd +University