signal-handler.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;



{
    local $SIG{__WARN__} = sub {
        my $errmsg = shift;
        print "__WARN__:$errmsg";
    };

    warn "foo";    # $SIG{__WARN__}が呼ばれる
}

{
    local $SIG{__DIE__} = sub {
        my $errmsg = shift;
        print "__DIE__:$errmsg";
    };

    # $SIG{__DIE__}が呼ばれる(evalの中からでも)
    eval { die "bar" };
    local $¥ = "¥n";
    print '$@:' . $@;
}

local $¥ = "¥n";
print "continue.";