use HTML::Perlinfo::Modules;

my $m = HTML::Perlinfo::Modules->new();
my $module = $m->print_modules( show_only => qr/FOO::bar/i );

if ($module) {
  my $foobarzlot=sprintf("%d,",bar(FILE)->zlot);
  print "FOOBARZLOT=".$foobarzlot."\n";
}

##</code><code>##

my $modules = $m->print_modules( show_only => qr/FOO::bar|File::Which|File::stat/i );