Select Code to Download

use 5.032;
sub foo {
...
}
open (my $foo, '<', 'doesnotexist.dat') or foo($!);
open (my $bar, '<', 'doesnotexist.dat') or bar($!);

foo found: ''
bar found: 'No such file or directory'