sub _view_xml {
  my $self = shift;
  my $xml = XMLin( "ttscall1.xml" );
  print Dumper $xml;
  my $xml = XMLout( $xml, Rootname => 'campaign' );
  print $xml;
  
  return $xml;
}