#! /usr/bin/perl -w

use IO::Prompt;
use Data::Dumper 'Dumper';

if (prompt -clearfirst, -escape, "first> ", -line) {
    warn Dumper [ $_ ];
}

# Should not wipe screen, since previous call already did...

while (prompt -clearfirst, " next> ", -line) {
    warn Dumper [ $_ ];
}