!/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 $ref = CathRecord::CamPatData($obj,$file);

print"\n";
my $hashref = $ref->{STAFF};

foreach my $inst(keys %$hashref)
{
	my $aih = $$hashref{$inst};
	print "$inst: @$aih\n";

	
}