#!/usr/bin/perl -w
#
# Twitter'ing from the command-line.
#
use strict;
use Net::Twitter;
if (! defined($ARGV[0]) ) {
    print "Usage: $0 [msg]\n";
    exit;
}
my $msg = $ARGV[0];
my $twit = Net::Twitter->new(username=>"USER", password=>"PASS" );
my $result = $twit->update("$msg");