#!/opt/perl/bin/perl -w
#
# Kermit input filter
#

use strict;
use Encode qw/encode/;

$| = 1;

my $charset = "iso-8859-1";

$SIG{'USR1'} = sub { $charset = "iso-8859-1" };
$SIG{'USR2'} = sub { $charset = "cp437" };

system("stty raw >/dev/null 2>&1");
binmode STDIN, ":utf8";

my ($c, $ec);
while (read(STDIN, $c, 1)) {
    $ec = encode($charset, $c);
    print $ec;
}
.