Das kannst du erreichen, indem du STDERR via tie() an eine Klasse
bindest und dort die Methode PRINT implementierst.

http://perldoc.perl.org/perltie.html#Tying-FileHan...