#!/usr/bin/perl -w
use strict;
use Term::ReadLine;

my $term = new Term::ReadLine 'Yes/No';
my $OUT = $term -> OUT || \*STDOUT;
while ( my $answer = $term -> readline( "Yea or Nay? " ) ) {
    print $answer =~ /^yea$/i ? "Yup.\n" : "Dough!\n";
}