##

#!/usr/local/bin/perl -w

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Headers;

my $q = new CGI;

print "Content-type: text/html\n\n";
my $agent = new LWP::UserAgent;

$result = $agent->request(
        POST 'http://domino/appname.nsf/M?CreateDocument',
        Content_Type => 'form-data',
        Content      => [ FirstName  => 'John',
                         LastName => 'Doe',
                         '%%File7cfd40fb9757495b85256cf0007322bb.$Body.0.7128' => ["/web/docroot/word.doc"]
                        ]);

print "all is well.\n\n" if $result->is_success;