# inserted at line 2348 before the "return $t" line
    my $file = "/tmp/soap.out.xml";
    if (open (my $fh,">$file")) {
      print $fh $t;
      warn $file;
    } else {
      die "Couldn't open: $file";
    }