$ perl -le'
sub prompt {
    my $inp = shift;
    return $inp or "zzz";
    }
print prompt( $_ ) for undef, 0, 1, 2;
'

0
1
2