210 open(TOPIC, ">$topic_file") or die "can't open $topic_file"; 218 open(TOPIC, "$topic_file") or die "can't open $topic_file."; 227 open(IDFILE, ">>$id_file"); 236 open(IDFILE, $id_file); 354 open FILE, ">$file" or &debug("can't open $file\n") and return 0;