open( FH , "+<" , $file )
  or die "Unable to open '".$file."' - $!\n";

##</code><code>##

open( my $fh , "+<" , $file )
  or die "Unable to open '".$file."' - $!\n";

##</code><code>##

open my $fh, '+<', $file
  or die "Unable to open '$file': $!\n";