open my $fh, '<~/Myperl/files/data.pri' or die "$! - unix specific";


##</code><code>##

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