Select Code to Download

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

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