Select Code to Download

#!/usr/bin/env perl

...
        say "You have chosen the wrong number";
    }
}

#!/usr/bin/env perl

...
    last if $response >= 1 && $response <= 5;
    say "You have chosen the wrong number";
}