use Carp qw(cluck);

$SIG{__WARN__} = sub { cluck(@_); }

... rest of code...