print 'Prompt message: ';
my $reply = <>;
print $reply;