in reply to IO::Socket, Multiple GET.
$msg = "GET /engine3.php?req_sale=5205&page=1\r\n";
You're sending HTTP/0.9, which doesn't have provisions for persistent connections, and the server will always disconnect you. You need to either send an HTTP/1.1 request, or HTTP/1.0 with the appropriate headers ... and for that, I'd do as poolpi and our anonymous friend have already mentioned, and use LWP::UserAgent (search the instructions for 'keep_alive' ).
In Section
Seekers of Perl Wisdom