ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Вот самый обычный сокед:

#!usr/bin/perl

use strict; use Socket;
use constant DEFAULT_ADDR => '127.0.0.1';
use constant PORT => 21;
use constant IPPROTO_TCP => 6;

my $my_addr = shift || DEFAULT_ADDR;
my $upak_addr = inet_aton($my_addr);
my $dest = sockaddr_in(PORT,$upak_addr);
socket(SOCK,PF_INET,SOCK_STREAM,IPPROTO_TCP) or
die "Can`t open this socket!";
connect(SOCK,$dest);
print <SOCK>;

Если соединение успешно,то просто выводит содержимое дескриптора сокета)).Но вот что можно запросить с помощью сокетов(какую информацию),и каким функциями пользоваться,кроме read().Или может есть у кого-то примеры работы на перле с сокетами ?