unless (my $r = complex_function()) { print "Error received: $r\n"; }