use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Terse = 1;

use XML::Compile::WSDL11;

use LWP::Simple;
# use XML::LibXML; # might want this

my $uri    = shift || die "Give a WSDL URI!\n";
my $wsdl   = LWP::Simple::get($uri) || die "Couldn't get $uri";

my $schema = XML::Compile::WSDL11->new($wsdl);

print Dumper($schema), "\n";

print "OPERATIONS_______________________________\n";

for my $op ( sort { $a->{operation} cmp $b->{operation} }
             $schema->operations )
{
    print "\t", $op->{operation}, "\n";
}