my $nofile;
my $tempfile = "$tempdir/$ENV{'REMOTE_ADDR'}";
open (TMPFILE, "$tempfile")|| ($nofile = 1);
my (@tmpfile) = <TMPFILE>;
close TMPFILE;