package HandleCGIData2; use strict; use warnings; use Apache qw(exit); print &handler; sub handler { local $^W = 1; #!/usr/bin/perl use CGI; my $q = CGI->new; my $them = $q->remote_host; my $name = 'John Doe'; my $age = '50'; print $q->header( 'text/html' ), $q->start_html(-title => 'My CGI Example'); print < HandleCGI

Using name and age

name = $name
age = $age EOT print $q->end_html; }