#!/usr/bin/perl
use LWP::UserAgent;
my $output = shift @ARGV;

my $browser = LWP::UserAgent->new;
my $url = 'http://twitter.com/statuses/update.json';
#print "Verify Credentials\n";
$browser->credentials('twitter.com:80', 'Twitter API', 'yourusername', 'yourpassword');
$response = $browser->get("http://twitter.com/account/verify_credentials.json");
#print $response->code."  ".$response->message."\n";
#print "Update\n";
my $response = $browser->post($url, {status => $output});
#print $response->code."  ".$response->message."\n";