my $tempfile = "$tempdir/$ENV{'REMOTE_ADDR'}";

##</code><code>##

open (TMPFILE, "$tempfile")|| ($nofile = 1);

##</code><code>##

my $nofile = open TMPFILE, $tempfile;

##</code><code>##

my (@tmpfile) = <TMPFILE>;