What about the line:
my $temp;
???

Update: the noted line above does indeed cover initialization with -w.

I just cut'n'pasted the code above from pdaggett and short of having to add a filehandle in the while control, it worked on one of my files.

Now, we just need some clarification on the sentence "How would I write this to not show warnings in the Log?"

ALL HAIL BRAK!!!