Test Perl Script

<%@ Language="PERLSCRIPT" %> Test Perl Script <% use Devel::NYTProf; #EVENTLOG::LogOpen(); my $a=0; $Response->Write($a); %>