Select Code to Download

use strict;
use warnings;
...
#print(\&AA::dostuff, $/);

bless({},'DD')->dostuff();  # Prints "main"