проверить на работоспособность сейчас не могу, по этому объясняю так, короче, где идут запросы нужно вставить $host, вот так вот:
print $sock "POST $host.${dir}index.php?act=Login&CODE=01 HTTP/1.1\r\n";
print $sock "GET $host.${dir}index.php HTTP/1.1\r\n"; и так далее
IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "80")
PeerAddr => "$host" и PeerPort => "80" соответственно прокся