summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xapp.cgi23
1 files changed, 20 insertions, 3 deletions
diff --git a/app.cgi b/app.cgi
index 364c1dc..fdf765f 100755
--- a/app.cgi
+++ b/app.cgi
@@ -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