#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Fast;
while (new CGI::Fast) {
print header;
print
'
AVR32 based web server test page
Hi
This is a PERL test page
',
'the web server is ',CGI::server_software(),'
',
'your IP is ',CGI::remote_addr(),'
',
'your browser is ',CGI::user_agent(),'',
'
';
}