sub MakeRequest { my $url = shift; my %header = shift; my %content = shift; my $request = HTTP::Request::Common::POST( $url, ???? Content_Type => 'application/x-www-form-urlencoded', ????? Content => %content, ); my $ua = LWP::UserAgent->new; return $ua->request($request);