What errors do you get?

Maybe you want to explain what the following line in your program does:

my $files = ($directory, "\", $file);
[download]

What steps have you undertaken to verify that this line works?