open(INP,"</proc/net/dev") || die "Can not open /proc/net/dev: $!";
while (<INP>) {
    s/eth0:(\d)/eth0: $1/;
    @a=split;
    print "$a[1]\n$a[9]\n" if ($a[0]=~s/eth0://);
}