Select Code to Download

$condRes = condReturn (0);
print 'condReturn (0) '; Dump ($condRes);
...
sub mebbeUndef {
    return undef if shift == 0;
}

condReturn (0) $VAR1 = '';
condReturn (1) $VAR1 = 'Foobar';
mebbeUndef (0) $VAR1 = undef;
mebbeUndef (1) $VAR1 = '';