use ExtUtils::MakeMaker 'prompt';

my $value = prompt "Please enter something.", "asdf";
print "$value\n";