Help for this page

Select Code to Download

Select or download this

sub prompt ($;$) {  ## no critic
    my($mess, $def) = @_;
...
    return (!defined $ans || $ans eq '') ? $def : $ans;
}

Select or download this

perl -e"warn scalar readline(STDIN)"
perl5.8.7 -e"warn scalar readline(STDIN)"