#!/usr/bin/perl
use Getopt::Std;
use Term::ReadKey;
use Net::Twitter;
getopt('upt',\%opts);
#$usage= <<USAGE;
#commandline twitter 0.1b - www.j-zero.de
#Usage: twitter_cmd -u username [-t tweet] [-p password]
#USAGE
sub gp{
    print "password: ";
    ReadMode 2;
    chomp($l = ReadLine(0)); 
    ReadMode 0;
    print "\n";
    return $l;
}
if(!$opts{u}){print $usage;exit 1;}
    else{$u=$opts{u};}
 
if(!$opts{t}){print "tweet: ";chomp($t=<STDIN>);}
    else{$t=$opts{t};}
 
if(!$opts{p}){$p=&gp;}
    else{$p=$opts{p};}
$s=Net::Twitter->new({username=>"$u",password=>"$p" });
$s->update({status=>"$t"});
exit 0;