I notice that there's a trailing space in your directory name:

my $directory = 'D:\WorkArena\Data\Final build ';

As a side note, it would help if you include errors in the message itself. Probably, by overriding the default error handler(Carp::carp) or by incrementing the error level ($Carp::CarpLevel++). Have a look at all of it here.

Good luck and have fun!