$ perl -Mstrict -w -e'while(1){ chomp( my $i = <STDIN>); $i eq "yes" && print "yes" && last; $i eq "no" && print "no" && last }'