$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;
}