268 sub logger {
    269     my ($message, $level) = @_;
    270     return if $level > $log_level;
    271     
    272     # name log levels
    273     my @level_names = qw( NONE ERROR WARNING INFO DEBUG );
    274     
    275     # autoflush output for current scope only
    276     local $| = 1;
    277     
    278     # DEBUG
    279     #print "\@level_names:\n";
    280     #print "\t$_\n" foreach @level_names;
    281     #print "\$level: $level\n";
    282     #print "\$message: $message\n";
    283     
    284     print $LOG "[" . scalar(localtime()) . "] " . $level_names[$level] . ": $message\n";
    285 }