elsif ($RecordType==94){                                     
        my ($Destination, $DestinationType)                   
   =unpack("A8            A40", $Record);