/usr/share/doc/perl-GD/demos/shapes.pl