open my $fh, '<', $location or die "can't open the damned file!: $!";