sub FixXML { $parm = $_[0]; $parm =~ s/&/&/g; $parm =~ s/>/>/g; $parm =~ s/</