diff options
-rwxr-xr-x | app.cgi | 23 |
1 files changed, 20 insertions, 3 deletions
@@ -2,9 +2,26 @@ use strict; use warnings FATAL => 'all'; +use CGI (); -print "Content-Type: text/plain\n"; -print "Pragma: no-cache\n\n"; +print "Content-Type: text/html; charset=UTF-8\n"; +print "Pragma: no-cache\n"; -print scalar(time), "\n"; +print <<"EOS"; + +<html> + <head> + <title>Application</title> + </head> + <body> + <h1>Application</h1> + <p> + This is a test application. + </p> + <hr/> + <pre>@{[ join "\n", map CGI::escapeHTML("$_=$ENV{$_}"), sort keys %ENV ]} + </pre> + </body> +</html> +EOS |