sub outputlog {
  if ($switch == 1) {
  sleep 3;
  print "test";
  outputlog->();
  }
}