Check out Term::ReadLine.

You should be able to steal from the sample code quite easily.

Note: I don't know why, but on my setup (RH9.0, Perl 5.6.1) I can press UP once to get to the previous line but have to press UP two more times to get to the one before that. Everything else works like a charm.

-- Eric Hammond