use LWP::UserAgent; use strict; my $ua = new LWP::UserAgent; my $content = < test4&; EOF my $req = new HTTP::Request (POST=>'http://test:test@localhost/cgi-bin/http/upload.pl'); $req->content_type('text/xml'); $req->content("$content"); print $ua->request($req)->as_string;