I used
Data::Dumper to display the contents of
$response. It looks like the key names that I get back aren't TechEmail & TechName. They are actually OrgTechEmail & OrgTechName.
&whois() is actually returning
(undef, undef). That is why you are getting unitialized value.