#!/usr/local/bin/perl -w
###########################################
# readline-complete 
# Mike Schilli, 2010 (m@perlmeister.com)
###########################################
use strict;

use Term::ReadLine;
my $term = Term::ReadLine->new('myapp');
my $attribs = $term->Attribs;
$attribs->{completion_entry_function} =
    $attribs->{list_completion_function};

$attribs->{completion_word} =
        [qw(install remove quit)];

while(1) {
    my $cmd = $term->readline("myapp> ");
    last if $cmd =~ /^quit/i;
}