open my $fh, "<$ENV{HOME}/Myperl/files/data.pri" or die "$! - one layer of problem removed";