use Carp; 
local $SIG{__WARN__} = sub { print( Carp::longmess (shift) ); };