Select Code to Download

use A;
test1();
...
print 'j';
sub test2 { ... }
BEGIN { print 'begin'; }

require A; A->import() if A->UNIVERSAL::can('import');
*test1 = sub { ... };
...
test1();
print 'i';
print 'j';