#!/usr/bin/perl -w use CGI; my $q = CGI->new(); print $q->header(); print "
Hello, " . $q->param('name') . "!
\n"; ####
Apache::ASP Example
Hello, <%= $Request->QueryString("name") %>!
<%
for( 1...7 ) {
%>
The time is <%= scalar(localtime()) %>
<%
}# end for()
%>