$path="e:\\var\\www\\lars\\io\\";
$TimeOutMinutes   =  5;
$debug = 0;
$filenr =  0;
$NewFilename="";
$ext="";

binmode STDIN;
srand(time()^($$+($$<<15)));

$user_input = read(STDIN, $Buffer, $ENV{CONTENT_LENGTH});

open DBG, ">$path" . "debug.trc"        if $debug;
print DBG $Buffer                       if $debug;
close(DBG)                                                                      if $debug;


$exists = 1;
$last = int(rand(99999)) + 1;

while($exists != 0)
{
        $last = int(rand(99999)) + 1;
        $name = $path."h".$last.".in";
        if(open(TESTDAT, $name)  !=  0 )
        {
                close(TESTDAT);
                $exists = 1;
        }
        else
                {
                        if ( open(TESTDAT,$path."h".$last.".tmp") != 0 )
                                {
                                        close(TESTDAT);
                                        $exists = 1;
                                }
                        else
                                {
                                        open(LARSOUT, ">".$path."h".$last.".tmp");
                                        $exists = 0;
                                }
                }
}