A bit of perl to load balance devices across a pool of VLANs by MAC address