#!/usr/bin/perl

use SOAP::Lite;
use Data::Dump::Streamer;

my $c = new SOAP::Lite->uri('/Debbugs/SOAP')->proxy('http://bugs.debian.org/cgi-bin/soap.cgi');
my $bad = $c->get_status(514390);

my $dds = Data::Dump::Streamer->new;
$dds->Freezer(sub { "$_[0]"; });
$dds->Data($bad);
print $dds->Out;

