See File Handles or File::Temp or use lexical filehandles.

# instead of
# my $TEMPfa; 

# create it in scope
open (my $TEMPfa, ">",  "temp"); #opens temp file
[download]

it looks like you are running into a glitch by declaring $TEMPfa a global scalar at the start of the script. It should at least be classified a filehandle

use FileHandle;
my $TEMPfa = FileHandle->new;
[download]