Select Code to Download

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>;
}