#!/usr/bin/perl
system 'stty','cbreak' and die;
sysread STDIN,$a,1,0;
print "\n",$a =~ /y/ ? "yup\n" : "nope\n";
system 'stty','-cbreak' and die;