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