1#!/usr/bin/perl

use SOAP::Lite;

# Connect to the service.
my $soap = SOAP::Lite->uri('http://tempuri.org/')
   ->proxy('http://localhost/bjepson/dbdemo.asmx')
   ->on_action(sub { join('', @_) });

# Invoke the method.
my $result = $soap->enumerateChoices->result;

# Display the result.
print "result: ", join(', ', @$result), "\n";