#!/usr/bin/perl

use Term::ReadLine;

my $term = new Term::ReadLine 'Demo';
my $prompt = 'Perl> ';

while ( (my $cmd = $term->readline($prompt)) ne 'quit') {
    print "cmd: '$cmd'\n";
}