Blocks : Code Block « Language Basics « Perl

1. Perl
2. Language Basics
3. Code Block

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"
}

   
    
  

Related examples in the same category