$p01nt

>> $url = '?????????????';
>> $content = get $url;

вот это не понял к чему.. раз начал использовать io::socket, то юзай его и дальше..
получаешь ответ своего пост-запроса:

$sock->recv($content, 400);

и глядишь в $content нужные заголовки..