in reply to how to move multiple files

Your use of single quotes is perhaps the problem here.

Change:

my @Temp_Files = glob("'$Temp_Files_Location/*'");

To;

my @Temp_Files = glob("$Temp_Files_Location/*");
Naked blocks are fun! -- Randal L. Schwartz, Perl hacker