my $request = HTTP::Request->new(POST => $api_url);
$request->header(
     authorization => 'OAuth realm="https://api.twitter.com/oauth/',
     oauth_nonce => $oauth_nonce,
     oauth_signature_method => $oauth_signature_method,
     oauth_timestamp => $oauth_timestamp,
     oauth_consumer_key => $oauth_consumer_key,
     oauth_token => $oauth_token,
     oauth_signature => $signature,
     oauth_version => $oauth_version
     status => $status
      );
$request->content_type("text/xml; charset=utf-8");
my $res = $ua->request($request);