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

##</code><code>##

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