#!/usr/bin/perl -w

if ($#ARGV >= 0 ) {
    $int = $ARGV[0];
} else {
    exit 1;
}

open(FID, "/usr/bin/netstat -nbi -I $int -f inet|");
while (<FID>) {
    my $line = $_;
    @list = split(" ", $line);
    $in = $list[6];
    $out = $list[9];
    $ip = $list[3];
}
close (FID);

print("$int $ip $in $out\n");
exit 0;