use HTTP::Request::Common;
        my $ua = new LWP::UserAgent;
        my $res = $ua->request(GET 'http://2.2.2.2/page.asp');

        if ($res->is_success) {
    {
        no strict 'subs';
        $res = $ua->request(POST 'http://2.2.2.2/page.asp',
                Content_Type => 'form-data',
                Content => [
                    username => test,
                    password => test,
                    init => [undef, 
                             "filename",
                              content_type => 'text/xml',
                              content => $request_xml,],
                    ]
                );
    }
    ...