my $use_readkey;
BEGIN {
    eval {
        require Term::ReadKey;
    };
    $use_readkey = 1 unless $@;
}