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