invalid command name "log_to_file"
    while executing
"log_to_file_info {Logging to a file}"
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 [list log_to_file_info [expr {[llength $args]==1 ? [lindex $args end] : $args}]]"
    (procedure "::logger::tree::global::infocmd" line 2)
    invoked from within
"${log}::info "Logging to a file""
    (in namespace eval "::request" script line 35)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/bin/env tclsh
#
# Logging to a simple file
#
# This creates the file mylog.log and adds a single line.
#
# (c) 2005 Michael Schlenker 
#
# $Id: logtofile.tcl,v 1.2 2005/09/28 03:46:37 andreas_kupries Exp $
#
#

 package require logger

# Define a simple custom logproc
 proc log_to_file {lvl txt} {
   set logfile "mylog.log"
   set msg "\[[clock format [clock seconds]]\] $txt"
   set f [open $logfile {WRONLY CREAT APPEND}] ;# instead of "a"
   fconfigure $f -encoding utf-8
   puts $f $msg
   close $f
 }

# Initialize the logger
 set log [logger::init global]

# Install the logproc for all levels 
 foreach lvl [logger::levels] {
   interp alias {} log_to_file_$lvl {} log_to_file $lvl
   ${log}::logproc $lvl log_to_file_$lvl
 }

# Send a simple message to the logfile
 ${log}::info "Logging to a file"