sub module_inventory {
  my @modules=qw/
      Net::Ping Net::LDAP HTML::Template
      GnuPG::Fingerprint GnuPG::UserID GnuPG::Tie::ClearSign
      Date::Range Date::Manip Date::Calc Calendar::Simple
      CGI::Log CGI::LogCarp CGI::Cookie CGI::CoockieSerial
      CGI::EZForm CGI::FormBuilder GD CGI::Graph
      HTML::Calendar::Simple HTML::CalendarMonth HTML::Form
      HTML::TableLayout
      Spreadsheet::WriteExcel
      MIME::Lite MIME::Entity MIME::Tools MIME::Base64
      Mail::Send Mail::Sendmail

/;
  my $rstring="<table border=\"1\">";
  $rstring .= Tr(th("Module"),th("Status"));

  foreach my $mod(sort @modules) {
    eval " use $mod; " ;
    if ($@) {
      $rstring .= Tr(td($mod),td(b("Not Available"),$@));
    } else {
      $rstring .= Tr(td($mod),td("OK"));
    }
  }
  $rstring .="</table>";
  return $rstring;
}