$condRes = condReturn (0);
print 'condReturn (0) '; Dump ($condRes);
$condRes = condReturn (1);
print 'condReturn (1) '; Dump ($condRes);

sub condReturn {
    return "Foobar" if shift == 1;
}

$condRes = mebbeUndef (0);
print 'mebbeUndef (0) '; Dump ($condRes);
$condRes = mebbeUndef (1);
print 'mebbeUndef (1) '; Dump ($condRes);

sub mebbeUndef {
    return undef if shift == 0;
}

##</code><code>##

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