$SIG{__WARN__} = sub { 
    print "there was a warning, my handler dealt with it",
          $_[0];
};