open(INF,"$Dir/log.txt") or dienice("Can't open logs: $! \n");
@stats = <INF>;
close(INF);

foreach $i (sort byrate @stats) {
chomp($i);
($rate,$team,$comment,$gotdate) = split(/\|/,$i);
print "$rate $team  $comment\n";
print "<br>";
print "$ip $gotdate\n";
print "<br><br>";
}

sub byrate {
    @a = split(/\|/,$a);
    @b = split(/\|/,$b);
    $b[0] <=> $a[0];
}