cdpdiscover

Today I wrote a small perl-script that extracts CDP Information from Cisco devices via SNMP and writes the resulting graph into a dotfile. Here is a sample image.
You can download the script here.
I would like to add more information to the vertices, but i need to know more about the dot language first.