#!/usr/bin/perl -w
# program to print out cumulative interrupt for network device drivers
use strict;
#use diagnostics;

while (1) {
open(PFS,"/proc/interrupts")||die "Cant open file $! \n";

while (<PFS>) {
  if ( $_ =~ "eth" ) {
# change print format here .. overlay and have headers
  print $_;
  }
#  seek(PFS,0,1);
#  print tell PFS;
}

close(PFS);
sleep(10);
}