#!/usr/bin/perl

package Attachment;
use SOAP::Lite;
use MIME::Entity;
use strict;
use vars qw(@ISA);
@ISA = qw(SOAP::Server::Parameters);

sub someMethod {
    my $self     = shift;
    my $envelope = pop;

    my $ent;

    $ent = build MIME::Entity
      Id          => "<1234>",
      Type        => "image/gif",
      Encoding    => "base64",
      Path        => "some.gif",
      Filename    => "goit.gif",
      Disposition => "attachment";

    return $ent,SOAP::Data->name( "foo" => "bar" ),$ent;
}
1;

##</code><code>##

    $result = SOAP::Lite->uri($SOME_NAMESPACE) ->proxy($SOME_HOST) ->someMethod();

print "Parts:\n";

foreach my $part ( ${ $result->parts } ) {
    print $part->stringify;
}