Example Perl script to process a Service Now CMDB extract