Select Code to Download

my $module = do {
   open(my $fh, '<', 'Module.pm')
...
eval $module or warn $@;
$module =~ s/^for;$/#for;/m;
eval $module or warn $@;

use strict;
use warnings;
...
sub two { }

1;

Subroutine one redefined at (eval 2) line 6.

use strict;
use warnings;
...
END { print("END2\n"); }

1;

END2
END1
END1

use strict;
use warnings;
...
BEGIN { print("BEGIN2\n"); }

1;

BEGIN1

BEGIN1
BEGIN2

use strict;
use warnings;
...
for;

1;

Creating

Subroutine new redefined at (eval 2) line 8.
Subroutine DESTROY redefined at (eval 2) line 9.
Creating
Destroying
Destroying