Архив форумов ЦИТФорума

[Bes Paniki]

Помогите, пожалуйста. Нужно послать запрос вида http://sms.telecom.tmn.ru/smssend.php?phone=912164&message=t est&msglen=4 из проги на перле.
Я делаю так:

Use Socket;
$url="http://sms.telecom.tmn.ru/smssend.php?phone=9 12164&message=test&msglen=4"; $port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($url); print "$iaddr\n";
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
send (SOCK, "POST / HTTP/1.0\nHOST:$url\n\n", 0);
# }
close(SOCK);

в общем, как в кино. по запросу perl get на ya.ru половина результатов такая, только про GET. Пример реальный. Подскажите, что делать.