Fortunately, $log is available to the line you mention. It's in the same lexical scope (the main file block).

Note that our has just been introduced in Perl 5.6.