#!/opt/perl/bin/perl
use strict;
use warnings;

print "set handler 1\n";
$SIG{ALRM} = sub { print "handler 1\n"; };
print "set handler 2\n";
$SIG{ALRM} = sub { print "handler 2\n"; };
print "set handler 3 (local)\n";
{
        local $SIG{ALRM} = sub { print "handler 3\n"; };
}