[Perl] Problemas con modulos

[Eduardo Martinez]

Hola  a todos.

Despues de haber instalado el modulo GD::Graph y algunas dependencias
que tenia, crei haber resuelto todos mis problemas, sin embargo al
hacer un pequeño script de pruebas:

use GD::Graph;

@data = (
    ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
    [    1,    2,    5,    6,    3,  1.5,    1,     3,     4],
    [ sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) ]
  );

$graph = GD::Graph::bars->new(400, 300);

$graph->set(
      x_label           => 'X Label',
      y_label           => 'Y label',
      title             => 'Some simple graph',
      y_max_value       => 8,
      y_tick_number     => 8,
      y_label_skip      => 2
  );

my $gd = $my_graph->plot(\@data);

open(IMG, '>file.png') or die $!;
  binmode IMG;
  print IMG $gd->png;
close IMG;

Pero al ejecutarlo, obtengo los siguientes errores:

Bareword "Cwd::cwd" not allowed while "strict subs" in use at
/usr/opt/perl5/lib/site_perl/5.005/GD/Text.pm line 271.
BEGIN not safe after errors--compilation aborted at
/usr/opt/perl5/lib/site_perl/5.005/GD/Text.pm line 479.
BEGIN failed--compilation aborted at
/usr/opt/perl5/lib/site_perl/5.005/GD/Text/Align.pm line 50.
BEGIN failed--compilation aborted at
/usr/opt/perl5/lib/site_perl/5.005/GD/Graph.pm line 38.
BEGIN failed--compilation aborted at /home/admin/prueba.pl line 2.


¿Qué me falto hacer?

Espero puedan ayudarme.

Saludos

=====
"Do or Do Not, there is no try"
-Yoda. The Empire Strikes Back

_______________________________________________________________
Do You Yahoo!?
Yahoo! Messenger
Comunicación instantánea gratis con tu gente.
http://messenger.yahoo.es