#!/usr/bin/perl
use Term::Complete;
print "Type ap, then hit the <tab> key or <ctrl-d>\n";
my $foo=Complete('>',('application','apple','applicant'));
print "You typed [$foo]\n";