A Light Weight Perl Script/Module to Parse DCM Files