if ($arg  =~ /^!average (.*)/i ) {
    chdir("pfad zum ornder wo text datein gespeichert sind");
        if ( $1) {
         my $dateiPfad =  $1;
         my ($benutzer, $zeilen, $datei)=();
         open $datei, "<$dateiPfad";
         while(<$datei>)
         {
         m/ users (\d+)/ || next;
         $benutzer+= $_;
         $zeilen++;
         }
         close $datei;

 $self->privmsg([ @to ], " $benutzer/$zeilen " );
         
}
}