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