my @files = readdir(DIR) or die "Unable to read $workdir: $!\n";