#!/usr/bin/perl -w
use strict;

my $file = '/some/secret/path/to.file';
# open(my $fh, "<$file") or die "Error opening $file: $!";
#   error prints: Error opening /some/secret/path/to.file: 
#      No such file or directory at C:\TEMP\junk3.pl line 6.
  
my $file1 = '/some/secret/path/to.file';
# open(my $fh, "<$file1") or die "Error opening $file1\n";
#   error prints: Error opening /some/secret/path/to.file
 
my $file2 = '/some/secret/path/to.file';
#open(my $fh, "<$file2") or die "$!";
#   error prints: No such file or directory at C:\TEMP\junk3.pl line 15.
  
my $file3 = '/some/secret/path/to.file';
#open(my $fh, "<$file3") or die "$!\n";
#   error prints: No such file or directory

my $file4 = '/some/secret/path1/to.file';
#open(my $fh, "<$file4") or die "";
#   error prints: Died at C:\TEMP\junk3.pl line 31.

my $file5 = '/some/secret/path4/to.file';
open(my $fh, "<$file5") or die "\n";
#   error prints: NOTHING!