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