use Module1 qw/$LOG/;
use Module2;
my $result  = do {
    local *STDERR = $LOG;
    Module2::foo(42);
};