#!/usr/bin/perl

use Net::hostent; use Socket;

print «Hello, World!\n»;

$string = <>; $host = gethost($string); print inet_ntoa ($host->addr);

не понимаю почему не работает, подскажите как исправить, пожалуйста!