log { my @args = @_; my $fmt = shift @args; open my $fh, ">>", "/var/log/error.log" or return; printf {$fh} $fmt, @args; close $fh; return; }