open my $kb, "<", "/dev/tty" or die;
    while (<$kb>) {
        ...
    }