sub prompt {
    my ($prompt_string) = @_;
    print $prompt_string;
    my $input = <STDIN>;
    chomp $input;
    return $input;
}
# Success!
while ( my $word = prompt('Please enter a word: ') ) {
    print "You entered '$word'\n";
}