Name	Size	Mode	Actions
clickable_image.cgi	1434	0755	editdlrm
cookie.cgi	2802	0755	editdlrm
crash.cgi	154	0755	editdlrm
file_upload.cgi	2440	0755	editdlrm
mojo_proxy.pl	801	0644	editdlrm
wikipedia_example.cgi	918	0755	editdlrm
wilogo.gif	458	0644	editdlrm

#!/usr/bin/perl use strict; use warnings; use CGI; my $cgi = CGI->new; print $cgi->header('text/html'); print << "EndOfHTML";

A Simple CGI Page

Name:
Age:

---

EndOfHTML if ( my $name = $cgi->param('name') ) { print "Your name is $name.
"; } if ( my $age = $cgi->param('age') ) { print "You are $age years old."; } print '';