use strict;
use warnings;

my $allDevices = 'All_Devices.txt';
open (my $device_h, '>>', $allDevices) or die "Could not create $allDevices $!\n";

while (my $file = <$_allConfDir/*>) {
  print $device_h $file;
}
close $device_h;