use strict;

use Term::ReadLine;

my $term = new Term::ReadLine 'readline demo';

my $line = $term->readline(">> ");
print "Line was: $line\n";