#--------------------------
# Insert Into File
#--------------------------
sub insert_into_file{
  my $fh = shift;
  my $record = shift;

  lock($x);
  $fh->print("$record\n");
}