Someone

my %Modules = ();
open(MODS, "modules.cfg") || print "Module file could not be loaded.\n";
my @mData = <MODS>;
my $module;

foreach $module (@mData) 
{
  chop($module);
  if ($module!~/^#/) 
  {
    my @temp = split(',', $module, 2);
    if (-e $IRCConfig{'Home'}.substr($temp[0], 2)."mod.pl") 
	{
      $Modules{''.substr($temp[0], 2).''} = $temp[1];
    } 
	else 
	{
      print "File : '".$IRCConfig{'Home'}.substr($temp[0], 2).".mod.pl' does not exist.\n";
    }
  }
}
close(MODS);