#!/usr/bin/perluse 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"}