Select Code to Download

#!/usr/bin/perl

...
my $v=failing_func(1) // warn "oops: $!"; # should give error 1
$v=defined_or_warn(failing_func(2),"oops: $!"); # should give error 2
$v=defined_or_warn_reverse("oops: $!",failing_func(3)); # should give 
+error 3

error 1 => Operation not permitted
error 2 => No such file or directory
...
oops: Operation not permitted at foo.pl line 31.
oops: No such file or directory at foo.pl line 17.
oops: No such file or directory at foo.pl line 24.