Hey!!!

No offence, but is this pseudo code ??
I mean it doesn't pass -w/strict in a million
years...

And I really want to help, but right now I wouldn't
know where to start hacking into it
I have to admit I hacked a bit, and now it passes strict
and -w...

My advice would be to join up your @types, and then optimize
your regex with /o... other than that...

maybe use this for your inner loop (untested, but I'm sure it's close)

 foreach my $server (@servers)
 {
  my $in="$server\.txt";
  open IN,"<$in" or next;
  my @CurType=grep /\.$type/i, <IN>;
  close IN;
  print OUT $total+=(stat)[7]/1000," KB\n" for @CurType;
 }
[download]

or maybe going per server instead of per type
but I'm having too much difficulty with this code to REALLY
optimize it (or see where you can gain speed otherwise) ;))

Hoped this helped though

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;