my %socks;
-for my $ifname (@ARGV) {
+my @ifnames=@ARGV;
+while (@ifnames) {
+ my $ifname=shift @ifnames;
+ if ($ifname=~/{(\d+)-(\d+)}/) {
+ push @ifnames,$`.$_.$' for $1..$2;
+ next;
+ }
my($sock,$hw)=sock($ifname);
$socks{$ifname}={
"sock"=>$sock,