#! perl -slw
use strict;
use GD::Graph::lines;


my @data = (
    [ 1 .. 10 ],
    [ map{    -5 + int rand   40 } 1 .. 10 ],
    [ map{ -5000 + int rand 7000 } 1 .. 10 ],
    [ map{    -5 + int rand   40 } 1 .. 10 ],
    [ map{ -5000 + int rand 7000 } 1 .. 10 ],
);

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

$graph->set(
    two_axes => 1,
    use_axis => [ 1,2,1,2 ],
);

my $gd = $graph->plot( \@data ) or die $graph->error;

open IMG, '>:raw', 'multiline.png' or die $!;
print IMG $gd->png;
close IMG;

system 'multiline.png';