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

##</code><code>##

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