use strict;
use ActiveState::Menu qw(prompt);

my $answer = prompt( 'Pick a letter between a and d.', 'must_match' => qr/[abcd]/ );

print "Your answer was $answer\n";