Current File : /home/inlingua/public_html/decay_sym/root/usr/share/doc/perl-GDGraph/samples/error.pl

use strict;
use GD::Graph::Data;

my $data = GD::Graph::Data->new()    
      or die GD::Graph::Data->error;
  $data->read(file => '/foo/bar.data') 
        or die $data->error;