Select Code to Download

if ((my $answer = <STDIN>) =~ /^yes$/i) {
    user_agrees();
...
    chomp $answer;
    die "'$answer' is neither 'yes' nor 'no'";
}