Select Code to Download

my $WARN;
local $SIG{__WARN__} = sub { $WARN = "@_" };
...
my $WARN = '';
some_op();
like($WARN, '/^$/', 'some_op() - no warnings');