in reply to Data returned from Win32::ODBC

You've got this:
print "$data('server_name')\n";
but you want this:
print "$data{'server_name'}\n";
(you can leave off the single quotes, too, if you'd like).

Can you see the difference? Sometimes those curly brackets don't always look like curly brackets :)