Perl script updates device table from dhcp leases