I would like to replicate the shell-like 'command line history' feature in a perl program, where you can use the up & down arrows to browse, edit, and execute past commands entered.

I have a command line based perl program that currently uses a basic prompt loop, something like:

while( 1 )
{
  print '> ';
  chomp( $cmd = <STDIN> );
  &do_stuff( $cmd );
}
[download]

I realise this may turn out to be overly complex, but i would be interested to find out what would be required. I've had a quick look at Curses, although not sure it's what i'm after. Any pointers & examples would be greatly appreciated.

- ><iper

my JAPH:
  print"Just another Perl hacker\n";
  #    ^ look, no space! pretty tricky hey?
[download]