これWinMXのMXMonitor1.28で動く物らしいんですけど、どうすればうごくんですか？
転送の順位を表示するものらしいです。

#! /usr/local/bin/perl -w
@files = glob("monitor_*.txt");
foreach $file (@files) {
　open LOG, "<$file";
　while (<LOG>) {
　　($test, $title) = (split/\t/)[1, 3];
　　$count{$title}++ if $test eq 'キュー';
　}
}

open RESULT, ">result.txt";
$last_sum = 0;
foreach $title (sort {$count{$b} <=> $count{$a}} keys %count) {
　$rank++;
　$str_rank = ' " ';
　$sum = $count{$title};
　if ($sum != $last_sum) {
　　$last_sum = $sum;
　　$str_rank = $rank . "位";
　}
　printf RESULT "%6s%5d回 : %s", $str_rank, $sum, $title;
}