sub log_msg { my $log_msg = shift; print "value $script::debug"; if ($script::debug) { print sprintf "(%s) $log_msg \n", shell_date; } }