#!/usr/local/bin/perl

&start_hot_keys;
while (1) {
        $char = getc(STDIN);
        last if ($char eq "\\");
        $char =~ tr/a-zA-Z0-9/b-zaB-ZA1-90/;
        print ($char);
}
&end_hot_keys;
print ("\n");

sub start_hot_keys {
        system ("stty cbreak");
        system ("stty -echo");
}

sub end_hot_keys {
        system ("stty -cbreak");
        system ("stty echo");
}
