open $fh, '<', $file or die $!; process($fh) if is_valid($fh); #### die $! unless open $fh, '<', $file; is_valid($fh) and process($fh); #### my $data; { local $/; open my $fh, '<', $file or die $!; $data = <$fh>; }