Select Code to Download

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

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

my $nofile = open TMPFILE, $tempfile;

my (@tmpfile) = <TMPFILE>;