#!/usr/bin/perl
use strict;
use warnings;

sub fails { 0 }
sub logs { print "error!\n"; 1 }

(fails or logs) and print "all ok so far...\n";

__END__

~/sviluppo/perl> perl example.pl
error!
all ok so far...