##
{
$ENV{PATH} = "/bin";
foreach my $module (keys %INC){
if($module =~ m/Account/){
print STDERR "The next module is: $module \n";
print STDERR `grep _GenerateAccountSummary $INC{$module}`;
print STDERR "\n\n";
}
}
}
##
##
The next module is: My/Module/Account.pm
our @EXPORT = qw( . . . _GenerateAccountSummary . . . );
our %EXPORT_TAGS = ( all => [qw( . . . _GenerateAccountSummary . . . )] );
sub _GenerateAccountSummary {