Select Code to Download

use warnings;
use strict;
...
local $SIG{__WARN__} = sub { $log->warn(@_) };

Foo::bar();