Select Code to Download

local $Employee::current= $secondObject;
$secondObject->doSomethingThatRaisesWarnings();

local $SIG{__WARN__} = sub {
...
}