<%@ Language='PerlScript' %> <% my $to; my $from = "This is my test string"; my $DLLObject = $Server->CreateObject("myTest.myClass"); $DLLObject->CreateBarChart($to, $from); %> <%=$to?"It is set":"It is not set"%>
<%=$to%>