The syntax you describe seems to work fine for me. This example works, at least:

my $ret = test();
print "Test returned $ret\n";

sub test
{
  unlink("t64.test")
    or return 0;
  print "Test completed.\n";
  return 1;
}
[download]

Maybe you need to look elsewhere for your problem?