print $fh "CCC\n" or die "The file has vanished.";