#!/usr/bin/perl -w
use strict;
use Term::Readline::Perl5;

my $term = Term::ReadLine::Perl5->new();
my $name = $term->readline( 'Name? ' );
print "Hello, $name\n";

__END__