#!/usr/bin/perl
 
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Digest::HMAC_SHA1;
use Encode qw(encode);
use URI::Escape;
use LWP::UserAgent;
use HTTP::Request::Common ('POST');
 
my $api_url = "http://api.twitter.com/1/statuses/update.json";
my $status = "Hello world";
my $oauth_consumer_key = "XYZ";
my $oauth_consumer_secret = "XYZ";
my $oauth_nonce = "10000000001";
my $oauth_signature_method = "HMAC-SHA1";
my $oauth_token = "XYZ"; # from my application under my access token
my $oauth_token_secret = "XYZ"; # from my application under my access
token
my $oauth_timestamp = "1272325550";
my $oauth_version = "1.0";
my $content = "oauth_consumer_key=$oauth_consumer_key&oauth_nonce=
$oauth_nonce&oauth_signature_method=
$oauth_signature_method&oauth_timestamp=$oauth_timestamp&oauth_token=
$oauth_token&oauth_version=$oauth_version&status=$status";
 
my $signature_base_str = "POST&" . uri_escape_RFC3986($api_url) .
"&" . uri_escape_RFC3986($content);
 
my $HMAC_SHA1_key = uri_escape_RFC3986(Encode::encode("UTF-8",
$oauth_consumer_secret));
   $HMAC_SHA1_key .= "&";
   $HMAC_SHA1_key .= uri_escape_RFC3986(Encode::encode("UTF-8",
$oauth_token_secret));
 
my $hmac = Digest::HMAC_SHA1->new($HMAC_SHA1_key);
   $hmac->add($signature_base_str);
my $signature = $hmac->b64digest;
$signature .= "=";
 
my $ua = LWP::UserAgent->new;
my $req = POST($api_url => [
           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
           ]);
 
my $res = $ua->request($req);
 
print "Content-type: text\/html\n\n";
 
if ($res->is_success) {
 print "success: $res->decoded_content";
 }
 else {
 print "error:", $res->status_line;
 }
 
#----------------------------------------------------
 
sub uri_escape_RFC3986 {
    my($str) = @_;
 
    return uri_escape($str,"^A-Za-z0-9\-_.~");
}