my $old_warn = $SIG{__WARN__};
$SIG{__WARN__} = sub {
    # your stuff
    $old_warn->(@_);
}