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";
}
[download]

Note that it is very easy to look up multiple modules by simply adding them to the precompiled regular expression. For example:

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