open( PUBLIC , ">", "test.public" ) or die "COULD NOT SAVE Public Key" , "\n";
binmode PUBLIC;
flock PUBLIC,0;
print PUBLIC $public;
close( PUBLIC ) or die "COULD NOT SAVE Public Key" , "\n";