#!/usr/local/bin/perl5 asp <% ; my $file1 = '.'; my $file2 = '/'; my $html = ""; my $url = "cgi data =%&"; my @cmds = ( '$Server->MapPath("'.$file1.'")', '$Server->MapPath("'.$file2.'")', '$Server->HTMLEncode("'.$html.'")', '$Server->URLEncode("'.$url.'")', '$Server->Config("GlobalPackage")', ); ($^O eq 'MSWin32') && push(@cmds, '$Server->CreateObject("MSWC.AdRotator")'); %> <% for(@cmds) { %> <% } %>
The $Server methods in action

<%=$Server->HTMLEncode($_)%>
<%=(eval $_) || $@%>