in reply to error/warn customization

The __WARN__ and __DIE__ handlers are there to do things like you describe.

In Section Seekers of Perl Wisdom