[perl] Me doy

[=?iso-8859-1?q?Estrella=20Dominguez?=]

Saludos lista.
Estoy haciendo una pegina sencilla en html para
mostrar una grafica estadistica que deseo se refresque
cada 10 minutos. Si creo la hoja estaticamente no hay
problema por eso, pero no se como hacerla en perl.

Podrian ustedes darme una ayuda para sacar esta hoja?

Este es el codigo que he creado pero no hace lo que
quiero:#!/usr/bin/perl

use CGI;
use Chart::LinesPoints;

$dirinfo="/home/sevega/iexof/info";

chdir $dirinfo;
open(LEER,"cdrs") or die;
        for $line (<LEER>) {
                @campo=split(' ',$line);
                $campoa="$campo[1]";
                $campob="$campo[2]";
                $campoc="$campo[3]";
                push(@result1,$campoa);
                push(@result2,$campob);
                push(@result3,$campoc);
        }
close(LEER);
@labels=('Menores a 5 Min.', 'Mayores a 5 Min.');
$q = new CGI;
$ra = Chart::LinesPoints->new(750,300);
$ra->set(
          'title' => 'Las porquerias de Ernesto',
          'legend' => 'bottom',
          'legend_labels' => \@labels,
          'x_label' => "Hora",
          'x_ticks' => 'vertical',
          'y_label' => " Num. Llamadas",
          'pt_size' => '7',
          'brush_size' => '5',
          'skip_x_ticks' => 4,
          'grid_lines' => 'true',
          'colors' => {'background' => [255,255,255]}
          );

@data = (\@result1,\@result2,\@result3);
print $q-> header(-type=>'image/png'),
        $q->start_html(),
        $q->h1('Wow'),
        'Look Ma, no hands!',
        $ra->cgi_png(\@data),
        $q->end_html();

Cuando ejecuto este script funciona a medias, es
decir, si me muestra la grafica que se crea en vuelo,
pero el titulo no lo muestra.

Les agradecere su ayuda chicos.

EDR



=====
Si lo que quieres es vivir cien años, no vivas como vivo yo.





_________________________________________________________
Do You Yahoo!?
Obtenga su dirección de correo-e gratis @yahoo.com
en http://correo.espanol.yahoo.com
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl