use strict; use warnings; my $path1 = "..."; open my $fh, "<", $path1 or die "Can't open file '$path1': $!";