#!/usr/local/perl-5.8.3/bin/perl

use warnings;
use strict;

use GD::Graph::lines;

my @data = (
    [ qw/ 1 2 3 / ],
    [ qw/ -70 -70 -71 / ],
);

my $graph = GD::Graph::lines -> new ( 200, 200 );

$graph -> set(
    x_label => 'x',
    y_label => 'y',
    title   => 'title',
);

$graph -> plot ( \@data );

##</code><code>##

#!/usr/local/perl-5.8.3/bin/perl

use warnings;
use strict;

use GD::Graph::lines;

my @data = (
    [ qw/ 1 2 3 / ],
    [ qw/ -70 -70 -70 / ],
);

my $graph = GD::Graph::lines -> new ( 200, 200 );

$graph -> set(
    x_label => 'x',
    y_label => 'y',
    title   => 'title',
);

$graph -> plot ( \@data );