my( $scplog, $controllog, $preplog, $distlog )  = ('DICOM_SCP*.log', 
                                                 'PREPARATION_CONTROL*.log', 
                                                   'PREPARATION_MG*.log', 
                                                   'Distributor*.log');