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;