Perl gethost()

[00:03:10][aitap@Tarkus ~]> perl -d

Loading DB routines from perl5db.pl version 1.32
Editor support available.   

Enter h or `h h' for help, or `man perldebug' for more help.

use Net::hostent; use Socket;

  DB<1> $string = "ya.ru";

  DB<2> $host = gethost($string);

  DB<3> x $host
0  Net::hostent=ARRAY(0x8cbc7f0)
   0  'ya.ru'
   1  ARRAY(0x8cbc7a0)
        empty array
   2  2
   3  4
   4  ARRAY(0x8cbc770)
      0  "W��\cC"
      1  "]��\cC"
      2  ']���'
      3  "մ�\cC"
      4  "MX\cU\cC"
      5  "W��\cC"
      6  'W���'
  DB<4> x inet_ntoa ($host->addr);
0  '87.250.251.3'
  DB<5>