my ($row, $place, $ipnet, $vlan, $ip, $dip) = switch_info($switch, $distro, $port);
print "Switch: $switch, Distro: $distro, vlan: $vlan\n";
my ($row, $place, $ipnet, $vlan, $ip, $dip) = switch_info($switch, $distro, $port);
print "Switch: $switch, Distro: $distro, vlan: $vlan\n";