use Data::Dumper;
print Dumper $version_on_disk, "disk";
print Dumper $version_dns, "dns";