Select Code to Download

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

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

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