use Term::ReadKey;
    my $message = ReadLine(10);    ## timeout of 10 seconds