Select Code to Download

sub shall_we {
    my $ans = prompt(
...
    );
    return $ans ? 0+$ans : undef;
}

sub shall_we {
    local $_;
...
    );
    return $_;
}