require Term::ReadKey;
my $char= Term::ReadKey::Win32PeekChar(STDIN,-1);