use strict;

use GD;
use GD::Polyline;

my $image = new GD::Image (500,300);
my $black  = $image->colorAllocate(  0,  0,  0);
my $polyline = new GD::Polyline;

$polyline->addPt(100,  10);
$polyline->addPt(10, 100);

$image->polydraw($polyline,$black);

binmode STDOUT;
print $image->png;