<%@ Language='PerlScript' %> <% my $return; my $labels = "first,second,third"; my $averages = "3,4,5"; my $maxes = "6,7,8"; my $mins = "1,2,3"; my $ChartObject = $Server->CreateObject("WCP.WCPCharts"); $ChartObject->CreateBarChart($return, $labels, $averages); %> <%=$return?"It is set":"It is not set"%>
<%=$return%>