unless (cpen (FH, $myhashname)) {
print STDERR "Can not open file\"$myhashname\": $!n\n";
exit;}

##</code><code>##

open (FH, $myhashname)
    or die "Can not open file\"$myhashname\": $!";