use Term::ReadKey;

ReadMode 4;
if( my $key = ReadKey 10 ) {
    ReadMode 0;
    ## Do stuff
}
ReadMode 0;
exit; ## Do nothing.