perl - HTTP リクエストを送信するための Perl While ループ

Question

25 個のリクエストを送信し、ソケットを閉じて新しいソケットを開始するスクリプトを作成するのに助けが必要です。

これは私がこれまでに持っているものです:

while ($count<25) {
    $count++;
    die "Could not create socket: $!\n" unless $sock;
    print $sock "GET / HTTP/1.1\r\n";
    print $sock "Host: $host \r\n";
    print $sock "Cookie: $rand \r\n\r\n";
    print while <$sock>;
    close($sock);
};

gotoしたがって、25 回のリクエストの後、ソケットを閉じて別のソケットを開始します (コマンドのようなものです)。