#!/usr/bin/perl
# OurCommon.pm

use strict;
use warnings;

package OurCommon;

BEGIN { print "BEGIN in OurCommon.pm\n"; }
CHECK { print "CHECK in OurCommon.pm\n"; }
INIT { print "INIT in OurCommon.pm\n"; }
END { print "END in OurCommon.pm\n"; }

print "OurCommon.pm non-sub code running\n";

sub new { print "new in OurCommon\n" }