sub log_to_file {
   my $on = $_[0];
   if ($on) {
      Log::Log4perl->easy_init ({
	    level => $DEBUG,
        file => 'STDOUT',
        layout => '%m',
        },
        {level => $DEBUG,
        file => ">> $console_log",
        layout => '%m',
        });
   } else {
      Log::Log4perl->easy_init ({
	    level => $DEBUG,
        file => 'STDOUT',
        layout => '%m',
        });
   }
}