Select Code to Download

sub prompt {
    my( $prompt, $validator, $reprompt ) = @_;
...

    return $response;
}

        last
            if  $validator->( $response );

    prompt(
        "Knarfle the garthog? ",
        sub { shift(@_) =~ /^[yn]/i },
        "Yes or no? ",
    );