#! /usr/local/bin/perl
print "Content-type:text/html\n\n";
print "<html><head><title>Gravando"; 
print "</title></head><body>";
open(fha1,">>../public/arq1.txt"); 
print fha1 "XXXXX\n" ;
print fha1 "YYYYY\n" ;
close(fha1);
print "Gravados registros";
print "</body></html>";