#!perl -l

sub foo {
  print "Foo!";
  return "foo";
}

my $barbar=0 || foo();
print $barbar;

print "---";

my $or    =0 or foo();
print $or;

__END__
Foo!
foo
---
Foo!
0