Послушайте, можно ли написать присоединение к HTTP серверу, не пользуясь всякими дополнительными модулями типа UserAgent? А то мне это нельзя... 8(

Конечно можно. Для этого надо всего лишь использовать модуль IO::Socket. Он входит в стандартную подставку Perl. Короче это делается так.

use IO::Socket;

$host=www.dwcgr0up.com;
$port=80; #Нам же надо по http

#Создаем новое соединение:
$socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => "TCP") or die print "connection failed to $host:$port\n";

print $socket "GET http://www.dwcgr0up.com/index.php"  HTTP/1.1\n"; #Метод, запрашиваемя страница и версия протокола.

# Дальше и так всё понятно. Если нет, то почитай о протоколе HTTP.

print $socket "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, */*\n";
print $socket "Accept-Language: ru\n";
print $socket "Content-Type: application/x-www-form-urlencoded\n";
print $socket "Accept-Encoding: gzip, deflate\n";

print $socket "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)\n";
print $socket "Host: $host\n";
print $socket "Connection: Keep-Alive\n";
print $socket "Connection: close\n\n";

Можно обойтись и без объектного интерфейса. Вот простенькая прога, распечатывающая страничку с хоста, URL которой задан в командной строке (по умолчанию localhost/index.html):

Код

#!/usr/bin/perl use Socket; $PROTO = getprotobyname ('tcp'); # Номер протокола TCP $PORT = 80; # Номер порта HTTP $n = "\x0d\x0a"; # Символы новой строки в HTTP $addr = shift || die ("Usage: $0 <URL>\n"); unless ($addr =~ m#^([\w\-\.]+)(?:/(.*))?$#) {    die ("Incorrect URL format!\nUse something like www.myhost.org/path/page.html\n"); } ($server, $page) = ($1, $2); # Создать сокет socket (SERV, PF_INET, SOCK_STREAM, $PROTO) or die ("Cannot create socket: $!\n"); # Подключить сокет к удаленному серверу connect (SERV, sockaddr_in ($PORT, inet_aton ($server))) or die ("Cannot connect to $server:$PORT: $!\n"); ### Соединение установлено. # Отключить буферизацию для дескриптора SERV $oh = select (SERV); $| = 1; select ($oh); # Запросить документ print (SERV "GET /$page HTTP/1.0$n$n"); # Получить и вывести ответ сервера while (<SERV>) {    print; } # Закрыть соединение close (SERV);

Уж Socket должен быть в любом дистрибутиве, даже на бесплатном хостинге )

А для использования любого модуля достаточно взять его на http://perl.com/CPAN/ бросить в папку со скриптом, а в теле скрипта прописать reqire Filename.pm

Вообще-то, народ, сокеты многими сайтами обрубаются, т.е. вам не будет разрешать к ним подконектится. Это не есть хорошо. Есть иной выход, причем весьма неплохой - LWP.
Этот модуль позволяет стукаться к сайтам, смотреть инфу, брать контент (картинки не всчет), причем конектится он может и черех прокси и как угодно, хоть прикинувшись браузером. Кроме того, он позволяет играться HTTP заголовком. И разумеется, входящими в него кукями
Взять можно со СПАНА