in reply to Re: using warn instead or print STDERR?
in thread using warn instead or print STDERR?

Bit verbose perhaps? :)

What about:

$SIG{__WARN__} = \&Carp::cluck;