1. use Socket; 
2. $adr="server.ru"; 
3. $port="80"; 
4. $page="login.php"; 
5. $data="username=user&password=my_pass&login=Вход"; 
6. $len=41; 
7. $str1="POST /$page HTTP/1.1\nReferer: http://$adr \nContent-Type: 
application/x-www-form-urlencoded\nHost: $adr\nContent-Length: 
$len\n\n$data\n\n"; 

8. socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')) 
9. or die "Couldn`t create socket : $!\n"; 
10. $iaddr=inet_aton($adr); 
11. $paddr=sockaddr_in($port,$iaddr); 
12. connect(SOCK, $paddr) 
13. or die "Couldn`t connect to $adr:$port : $!\n"; 
14. send (SOCK, $str1, 0); 
15. while($data=){ 
16. print $data; 
17. } 
18. close(SOCK);