#!/usr/bin/perl

if ( $ARGV[0] )
{
foreach $str (`netstat -I $ARGV[0] -bn`)
{
next if $str=~/^Name|Link/i;
@vars = split(/[\s]+/,$str);
print $vars[6].",".$vars[9]."\n";
$found = 1;
last;
}
}
else
{
foreach $str (`netstat -ibn`)
{
next if $str=~/^Name|Link|^lo/i;
@vars = split(/[\s]+/,$str);
$interfaces{$vars[0]} = $vars[6].",".$vars[9];
$found = 1;
}
print $_.",".$interfaces{$_}."\n" foreach keys %interfaces;
}

print "-" if not $found;