You might better want to use backticks or pipe-open instead of system to get the output on STDOUT...

e.g backticks

my @files = `dir /b /s`;
chomp(@files);
[download]

or with pipe-open:

unless (open (DIR, "dir /b /s |")){
  die "Error: couldn't execute dir-command: $!\n";
}
else {
  my @files = <DIR>;
  close (DIR);
  chomp(@files);
}
[download]

Best regards,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"