Programmieren mit Perl

use sigtrap

use sigtrap;
use sigtrap qw( Stack-trace old-interface-signals);  # das gleiche

use sigtrap qw(BUS SEGV PIPE ABRT);
use sigtrap qw(die INT QUIT);
use sigtrap qw(die normal-signals);
use sigtrap qw(die untrapped normal-signals);
use sigtrap qw(die untrapped normal-signals
                Stack-trace any error-signals);

use sigtrap 'handler' => \&my_handler, 'normal-signals';
use sigtrap qw(handler my_handler normal-signals stack-trace error-signals);

Das sigtrap-Pragma installiert für Sie einige einfache Signalhandler, so daß Sie sich nicht mehr um sie kümmern müssen. Das ist in Situationen nützlich, in denen ein nicht abgefangenes Signal Ihr Programm zu einem Fehlverhalten verleiten würde, wie etwa im Falle von END {}-Blöcken, Objekt-Destruktoren oder ...