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

##</code><code>##

use ExtUtils::MakeMaker q(prompt);

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