#!/biol/programs/perl580/bin/perl

use DBD::Chart::Plot;

my $img = DBD::Chart::Plot->new();
my @k = ('1','1','3','5');
my @h = ('0.1','0.5','0.4','0.9');
$img->setPoints(\@k, \@h, 'blue line nopoints');
    $img->setOptions (
        title => 'My Graph Title',
        xAxisLabel => 'my X label',
        yAxisLabel => 'my Y label' );
    print $img->plot;

    open (WR,'>plot3.png') or die ("Failed to write file: $!");
    binmode WR;            # for DOSish platforms
    print WR $img->plot();
    close WR;