You don't have to replace every instance of warn() with cluck(). You just have to make perl call cluck() when it calls warn().

The implementation of cluck() is simply

package Carp;
sub cluck   { warn longmess  @_ }
[download]

Make your __WARN__ handler do that and you're all set.