Select Code to Download

#!/usr/bin/perl -w -T

...
beginning my module2: b, c
ending    my module2: b, c
after  using my module: b, c

package Module;

...
BEGIN { print 'ending    my module1: ' . join(', ',@ARGV)."\n" }

1;

package Module2;

...
BEGIN { print 'ending    my module2: ' . join(', ',@ARGV)."\n" }

1;

BEGIN {
  *CORE::GLOBAL::require = sub {  printf "===== TRACE: req %-20s with 
+ARGV=%s\n",
...
                               };

}