open STRM_AllDevices, $AllDevices or die $!; print "READ $_" while ; close STRM_AllDevices;