Name	Size	Mode	Actions
clickable_image.cgi	1438	0644	editdlrm
cookie.cgi	2806	0644	editdlrm
crash.cgi	158	0644	editdlrm
file_upload.cgi	2444	0644	editdlrm
mojo_proxy.pl	805	0644	editdlrm
wikipedia_example.cgi	922	0644	editdlrm
wilogo.gif	458	0644	editdlrm

#!/usr/bin/env 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 '';