[Perl] Como ejecutar una web y pasarlo a una variable.

[Ing. Ricardo Cumberbatch L. (PANNet - URC)]

Hola lista,

Saben como hacer para q un url de un servidor A sea ejecutado en un server
B guarde la informacion en una variables y luego la despliegue para ser
mostrador a Server C. La idea es q Server C no se entere que la
informacion q le dio Server B vino directamente de Server A

ya q se q en PHP esto se puede hacer mendiante esto:

function verificar_url($url)
{
        //abrimos el archivo en lectura
        $id=@fopen($url,"r");
        //hacemos las comprobaciones
        if ($id) $abierto=1;
        else $abierto=0;
        //devolvemos el valor
        return $abierto;
        //cerramos el archivo
        fclose($id);
}



$url= "http://www.skytel.com.co";


$Resultado= verificar_url($url);

echo " Resultado $Resultado ";
if ($Resultado == 1)
  {
   echo " DIRECCION EXISTENTE ";
   // Aqui puede ingresar la rutina para traer la informacion del sitio
web
  }
 else
  {
   echo " DIRECCION  NO   EXISTENTE o FUERA DE LINEA ";


  }
 la primera es la funciC, y la otra parte es  el uso de @ delante de fopen es para que en caso de
error no se muestre en la pantalla

Gracias por la ayuda