#!/usr/bin/perl -w

use Term::ReadLine;
use strict;

my $term = Term::ReadLine->new('readLine');
my $prompt = "> ";
my $OUT = $term->OUT || \*STDOUT;

print "Enter: \n";
my $result = $term->readline($prompt);