use ExtUtils::MakeMaker q(prompt);

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