Select Code to Download

map{$Data->Sql("SELECT * FROM $_");
while($x=$Data->fetchrow_hashref){
$ConfigData{$$x{ID}}{$$x{DataName}}=$$x{DataValue}};
}qw(ConfigData DicomDestinations);