If you use (y/n) instead of yes/no, you can do it like this

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