#! /usr/local/bin/perl -w
use strict;

#print qq(content-type: text/html\n\n);

print qq(<HTML><HEAD><TITLE>Strona domowa Testu CGI</TITLE></HEAD>
<BODY>Witam: jestem testow stron domow.
<A HREF="/AA_next">Kliknij, jeli chcesz zobaczy moj drug twarz</A>
<BR> zapisuj w pliku demo_test</BODY></HTML>);

open A, ">>/usr/home/webuser/demo_test" or die "nie mona otworzy pliku $!";
print A "tu jestem - znowu\n";
close A;

