#!/usr/bin/perl -w
use XML::DOM;
use CathRecord;
### Create New Object

my $file  = "H:/My Documents/files/mfrTESTa.XML";

my $obj = CathRecord->new();
my @sa = $obj->CamPatDemo($file);