I found the answer on my own. This is more like what I was looking for. Tieing it seems like killing a fly with a sledgehammer.

   $SIG{__WARN__} = sub { push @errors, @_; };
[download]