Select Code to Download

use strict;
use warnings;
...
  print $device_h $file;
}
close $device_h;

next uness ($file =~ m/\.txt$/);

<$_allConfDir/*txt>