small Perl script to create a network map of LLDP-capable devices