BEGIN {
  sub MeinWarn {
     # hier dein Code zur Weiterverarbeitung der Warnungen
  }
  $SIG{__WARN__} = \&MeinWarn;
}

# hier dein Code des Skripts