# DNS LOOKUP !

	$packet = $res->query($hostname);

	if (!$packet)
          {

           warn "Unable to lookup data for host from server";
          }

	foreach $rr ($packet->answer)  ##THE ERROR OCCURS HERE!!!
          {
           $result{$server}=$rr->address;
          }

Data::Dumper->Dump([\%result],["result"]);