OT sript en perl para redirigir squid

["Trujillo Carmona, Antonio" <antonio.trujillo.sspa@juntadeandalucia.es>]

No se por que no me funciona esto:
por lo que he podido analizar no llega a leer la dirección en la entrada
del programa.
¿Alguien puede hecharme una mano?:

#!/usr/bin/perl
use Net::Ping;
$|=1;
$p = Net::Ping->new();
$host = "10.60.163.226";
$n_intentos=3;
while (<>) {
    chomp;
    @X = split;
    $url = $X[1];
    if ($url =~ /^http:\/\/www\.hvn\.es/) {
        $n = 1 ;
        while ($n < $n_intentos) {
            if ( $p->ping($host) ) {
                $url =~ s/^hvn\.es/hvn\.junta-andalucia\.es/;
                print $X[0]." 302:$url\n";
                $n = $n_intentos ;
            } else {
                $n++;
            }
        }
        print $X[0]." \n";
    } else {
        print $X[0]." \n";
    }
}

-- 
Fain would I climb, yet fear I to fall.
		-- Sir Walter Raleigh

Por favor, NO utilice formatos  de archivo  propietarios para el
intercambio de  documentos, como DOC y XLS, sino HTML, RTF, TXT,CSV
o cualquier otro que no obligue a utilizar un programa de un
fabricante  concreto para tratar la información contenida en él.
SALUD.