Спасибо за ответ, но он уже стоит там $dir,

print $sock "GET ${dir}index.php HTTP/1.1\r\n";



и я не понял а куда вставлять информацию про прокси?

$sock = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "80", LocalAddr => "$proxyaddr", LocalPort => "$proxyport") || die "[-]

Это строка не пашет

CMM