use strict;

my $exit_code = 0;
my $mod;
my @modules = ( "MIME/Parser", "MIME/Parser/Filer", "POSIX", "Fcntl",
		"Unix/Syslog", "IO/File", "IO/Pipe", "Mail/Header",
		"Convert/UUlib", "Convert/TNEF", "Compress/Zlib",
		"Archive/Tar", "Archive/Zip", "File/Basename");

foreach $mod (@modules) {
  eval { require "$mod.pm"; };
  
  if($@) {
    if ($exit_code != 1) {
      print STDERR "\n";
    }
    print STDERR "\tmodule not found in path: '$mod'.\n";
    $exit_code = 1;
  }
}
exit($exit_code)