/usr/share/doc/libsvg-perl/examples/starpath.cgi is in libsvg-perl 2.50-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | #!/usr/bin/perl -w
BEGIN {
push @INC , '../';
push @INC , '../SVG';
}
use strict;
use SVG;
my $svg = SVG->new();
my $def = $svg->defs( id => 'myStar' );
my $r_star_path = $svg->get_path(type=>'path',x=>[-0.951,0.951,-0.588,0.000,0.588],y=>[-0.309,-0.309,-0.809,-1.000,0.809],-closed=>1);
my $star = $def->path('transform' => "scale(100, 100)",%$r_star_path,);
$svg->use(-href => "#myStar", stroke=>"red",fill => "yellow", transform => "translate(200, 200)" );
print "Content-Type: image/svg+xml\n\n";
print $svg->xmlify;
|