Select Code to Download

use strict;
use warnings;
...
print "Say something: "
my $Input = <STDIN>;
print "You typed $Input\n';

use ExtUtils::MakeMaker q(prompt);

my $input = prompt('Say something: ');
print "You typed $input\n";