Mega Code Archive

 

Categories / Perl / Language Basics

 

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