print "yes? ";
my $answer = <STDIN>;
print uc $answer;