$yn=<STDIN>; 
  chomp ($yn);