#!/usr/local/bin/perl use GD::Graph::pie; my @data = (['A','O','S','I'],[3,16,12,47]); my $mygraph = GD::Graph::pie->new(200, 200); my $myimage = $mygraph->plot(\@data)->png; print "Content-type: image/png\n\n"; print <Current Stats

end_html print $myimage; print < end_html #### PNG  IHDR(q;PLTEVttRNS@f IDATx[K8 N{|P /^s{$ keJ")I]BHaR"(R~^֎@q<x쬰k xT>ѭ}Z_/o9ΦVZזGܹ\' -3N5riBqgzH:pkB:t]YԬkǟ5N4ΓgSہZf`g̯mm/ZWiw6RS8mHqZ>+-:"GGq-r@YPy4߳Vb'nH\-8G>#_d"9ϧc @"DQb\HT4@Ԑ4UQ.Ŭ oŨ$xcK7UeRW3G*7֬܈@ZnL } ####