my %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,
);
my $oauth_str=join(", ", map{$_=qq($_="$oauth{$_}")} sort keys(%oauth));

my $request = HTTP::Request->new(POST => $api_url);
$request->header(
     Authorization => 'OAuth realm="https://api.twitter.com/oauth/ ,'.$oauth_str);

$request->content_type("application/x-www-form-urlencoded");
$request->content(status => $status);
my $res = $ua->request($request);