print "Please enter Y or N";
my $name = <>;
print $name;
if($name eq 'Y')
{
 print $name;
}else{
 print "Not";
}