Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Blocks
#!/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"
}