Select Code to Download

$SIG{HUP} = sub { print "Framework handler!\n"; };

$SIG{HUP} = sub { print "FooApp handler!\n"; };

my $old_handler = $SIG{HUP};
$SIG{HUP} = sub {
    print "Framework handler!\n";
    $old_handler->(@_) if defined $old_handler;
}