#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Fast;
while (new CGI::Fast) {
print header;
print
'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head>
<meta content="text/html;charset=UTF-8" http-equiv="Content-Type"><title>AVR32 based web server test page</title>
</head>
<body bgcolor="#113355" text="#c0c0c0">
<h1><font color=white>Hi</font></h1>
This is a PERL test page<br>',
'the web server is <font color=white>',CGI::server_software(),'</font><br>',
'your IP is <font color=white>',CGI::remote_addr(),'</font><br>',
'your browser is <font color=white>',CGI::user_agent(),'</font>',
'</body></html>
';
}