Fixed up vlan listing function under (apparently) new variable scoping rules
in perl 5.8.