perl -MO=Deparse -e "sub test { return int(rand(2)) or print 'Nope' }"
sub test {
    print 'Nope' unless return int rand 2;
}
-e syntax OK


##</code><code>##

my $result;
$result = something() or croak "Something went wrong";
return $result; 

##</code><code>##

sub mySub
{
  ...
  something() or croak "Times are a'croaking";
}