Select Code to Download

use strict;
use warnings;
...
package main;
my $foo = Foo->new();
$foo->aa( { arg1 => 'some' } );

use strict;
use warnings;
...
  print "\t_aa\n";
}
1;