open( PRIVATE , ">", "test.private" ) or die "COULD NOT SAVE Private Key" , "\n"; 
binmode PRIVATE;
flock PRIVATE,0;
print PRIVATE $private; 
close( PRIVATE ) or die "COULD NOT SAVE Private Key" , "\n";