my $var = 5;
sub func { 10 };

print $var || func($var), "\n";
print func($var) || $var, "\n";