It might work if you add

chdir $dir or die "Cannot chdir to '$dir': $!";
my @files = glob '*';
[download]