use IPDevices;
tie my %devices, 'IPDevices', $file; # optional 'lock'