Select Code to Download

sub Test1::print_context {
   print(__PACKAGE__, "\n");
...

Test1::print_context();  # main
Test2::print_context();  # Test2

#!/usr/bin/perl -w

...
}

bar();