#! /usr/bin/perl -w

# Change what prompt echos for each input character
# (except <return> -- use the -nl flag for that)...

use IO::Prompt;

if (prompt "next: ", -echo => '*') {
    use Data::Dumper 'Dumper';
    warn Dumper [$_];
}

if (prompt "next: ", -echo => '.') {
    use Data::Dumper 'Dumper';
    warn Dumper [$_];
}

if (prompt "next: ", -echo => '') {
    use Data::Dumper 'Dumper';
    warn Dumper [$_];
}

if (prompt "next: ", -echo => '(*)') {
    use Data::Dumper 'Dumper';
    warn Dumper [$_];
}