Select Code to Download

open WARN, '> warnings.txt' or die ("Cannot write warnings.txt: $!");
local $SIG{__WARN__} = sub { print WARN @_,"\n" };

open WARN, '> warnings.txt' or die ("Cannot write warnings.txt: $!");
*STDERR = *WARN;