use Term::ReadLine;
my $term = Term::ReadLine->new;
my $line = $term->readline("Enter something: ");
print Dumper($line);

use ExtUtils::MakeMaker 'prompt';
my $value = prompt("Enter something:","default");
print Dumper($value);