Select Code to Download

package Util::Stuff;
use strict;
...
...
1;

Util::Stuff:aaa1
Util::Stuff:aaa2
Util::Stuff:aaa3

use Util::Stuff;

my $temp1 = Util::Stuff::aaa1->flag;
my $temp2 = Util::Stuff::aaa2->flag;
my $temp3 = Util::Stuff::aaa3->flag;

use Util::Stuff;

...
foreach my $name (@names) {
    push @temp, $name->flag;'
}