{ my @warns; BEGIN { $SIG{__WARN__}= sub { push @warns, $_[0]; } } END { if( @warns ) { print "\n

Warnings:

\n",
                @warns, "

\n"; } } }