my $response = <STDIN>;
chomp($response);
if (lc($response) eq 'y') { ...etc