You need to use %data instead of $data, since the function returns a hash and not a reference to one. And fix the hash index syntax, as pointed out above.

  ...
  while ($conn->FetchRow()) {
    my %data = $conn->DataHash();
    print "$data{'server_name'}\n";
  ...
[download]