You might want to take a look at Term::ReadKey. I use that and it works like a charm for me.