#!/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() %>