#!/usr/bin/perl # try.pl use strict; use warnings; use OurCommon; BEGIN { print "BEGIN in try.pl\n"; } CHECK { print "CHECK in try.pl\n"; } INIT { print "INIT in try.pl\n"; } END { print "END in try.pl\n"; } print "try.pl main code running\n";