use Carp "cluck"; 
# Am Anfang des Programms setzen
$SIG{__WARN__}=sub { cluck @_ };