Perl script sends HL7 messages and DICOM images for A-5006-01 test.