Select Code to Download

my $dir = "/opt/DSPKG";
opendir(my $bin_dh, $dirs)
...
foreach my $subdir (@subdirs) {
   print $pkg_fh "$subdir\n";
}