my $logger = sub {
    $log->message(@_);
}

# now you can call $logger like this:
$logger->('This is a logging message');
# or like that:
&$logger('This is a logging message');