sub MyWriteToLog($,$,$,$){
  if ($FLAG eq 1) {
  local ($var) = @_;
  # do its fike IO stuff
    WriteTOLog($a,$b,$c,$d);
  } else {
   #do nothing or other things;
  }
}