MRTG и ppp0

Я забил на все эти неточности, и написал свой скрипт который снимает статистику.

traf.pl:

#!/usr/bin/perl

if (scalar(@ARGV) < 2)
{
print "Usage: ./traf.pl <dev> <interval sec>\n";
exit(-1);
}
my $if="$ARGV[0]";
open(F,"</proc/net/dev");
while(<F>)
{
        if (/^\s*$if:\s*(\S+)(?:\s+\S+){7}\s+(\S+)/)
        {
                my $last_in,$last_out;
                my $cur_in=$1;
                my $cur_out=$2;
                open (F1,"</tmp/$if.in");
                while (<F1>) {
                        chomp;
                        $last_in=$_;
                        };
                close(F1);
                open (F2,"</tmp/$if.out");
                while (<F2>) {
                        chomp;
                        $last_out=$_;
                        };
                        close(F2);
                my $in=($cur_in-$last_in)*8/$ARGV[1];
                $in=~ s/(\S+)[.]\S+/\1/;
                my $out=($cur_out-$last_out)*8/$ARGV[1];
                $out=~ s/(\S+)[.]\S+/\1/;
                print $in,"\n";
                print $out,"\n";
                open(F,">/tmp/$if.in");
                        print F $cur_in;
                close(F);
                open(F,">/tmp/$if.out");
                        print F $cur_out;
                close(F);
        }
}

/etc/mrtg.conf:

############################
# vlan385

Title[vlan385]: Traffic on eth1 `/usr/bin/uptime`
MaxBytes[vlan385]: 125000000
AbsMax[vlan385]: 125000000
Options[vlan385]: gauge
Target[vlan385]: `/var/www/localhost/stats/traf.pl eth1 300`
PageTop[vlan385]: <H1>eth1 statistics</H1>
YLegend[vlan385]: Kbits/s
ShortLegend[vlan385]: B/s
Legend1[vlan385]: Outgoing Traffic
Legend2[vlan385]: Incoming Traffic
Legend3[vlan385]: Maximum Outgoing Traffic
Legend4[vlan385]: Maximum Incoming Traffic
LegendO[vlan385]: &nbsp;Out:
LegendI[vlan385]: &nbsp;In:
WithPeak[vlan385]: ymwd

############################

300 - 5 минут. Нужно ждя того чтоб скрипт не врал mrtg.

З.Ы: За качество кода не пинать ! Пишу как умею...

Только там замесь vlan385 - eth1.

спасибо!