my @info = gethostbyaddr 192.168.200.20,'tcp'; print $info[0];