Take a look at Term::ReadLine:

use warnings;
use strict;

use Term::ReadLine;

my $term = Term::ReadLine->new();

my $string_entered = $term->readline('Please enter a string: ',
                                     'Hello username');

print "You entered [$string_entered]\n";
[download]