I am not certain what you are trying to achieve here. Looking at the recursive subroutine I supplied (zapfile), you could place additional name checks after:

next if $name eq '.' or $name eq '..';
[download]

For example:

next unless $name =~ /Temp$/;
[download]