#!/usr/bin/perl use warnings; use strict; $SIG{__DIE__} = sub { print "DIE?\n"; }; print "It's alive!\n"; die "death!\n"; BEGIN { print "BEGIN\n"; } END { print "END\n"; } INIT { print "INIT\n" } CHECK { print "CHECK\n" }