#!/usr/bin/perl -l

use strict;
use warnings;

use Term::ReadLine;

my $term = new Term::ReadLine "Default Input";
my $input = $term->readline("Enter some text: ", "What do you want to say?");
print "You entered: $input";