A Light Weight Perl Module/Script to Parse DCM Files