#!/opt/perl/bin/perl -w
#
# Legacy character set to UTF-8 output filter for screen
#

use strict;

$| = 1;

scalar(@ARGV) or die "usage: l2uof charset\n";
my $charset = $ARGV[0];

binmode STDIN, ":encoding($charset)";
binmode STDOUT, ":utf8";

my $c;
print $c while read(STDIN, $c, 1);
.