use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

print "Enter something: ";
my $char = <>;
print Dumper($char);

##</code><code>##

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);

##</code><code>##

use Term::ReadKey qw/ReadMode ReadKey/;
print "Press a key\n";
ReadMode 'cbreak';
my $key = ReadKey(0);
ReadMode 'restore';
print Dumper($key);