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

##</code><code>##

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