Select Code to Download

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

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