Select Code to Download

use warnings;
use strict;
...
print "Enter something: ";
my $char = <>;
print Dumper($char);

use Term::ReadLine;
my $term = Term::ReadLine->new;
...
use ExtUtils::MakeMaker 'prompt';
my $value = prompt("Enter something:","default");
print Dumper($value);

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