open(ARQ,">$dir$foo_file");
binmode ARQ;
print ARQ $foo_file;
close(ARQ);

##</code><code>##

sub GetForm
{
    $n = 0;
       
    read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
    @par = split(/&/, $buffer);
    open (TXT,">dsp.txt");
    foreach $temp (@par)
        {
            my ($nome,$valor) = split(/=/,$temp);
            $valor =~ tr/+/ /;
            $valor =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
            $valores[$n] = $valor;
            $n++;
        }
    close(TXT);
}