open my $filehandle, ">> $fname" or die $!;
  print $filehandle $data;
  close $filehandle;