From 30be3f9accf36e363f9bd479f5527261ba44f0c5 Mon Sep 17 00:00:00 2001 From: Jan Pazdziora Date: Tue, 7 Jan 2014 22:18:28 -0500 Subject: Some HTML content. --- app.cgi | 23 ++++++++++++++++++++--- 1 file 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"; + + + + Application + + +

Application

+ This is a test application. +

@{[ join "\n", map CGI::escapeHTML("$_=$ENV{$_}"), sort keys %ENV ]}
+

+ + +EOS -- cgit