# Simple commandline twitter script.
# Reads a line from STDIN and updates twitter.
# This doesn't work anymore, because of OAuth.
# Net::Twitter does support OAuth so it could be rewitten to make it work
# Created by Peter Stuifzand <peter.stuifzand@gmail.com>

use strict;
use warnings;

use Net::Twitter;
use Data::Dumper;

my $user = "USERNAME";
my $password = "PASSWORD";

my $nt = Net::Twitter->new(
    traits   => [qw/API::REST/],
    username => $user,
    password => $password,
);

my $update = <>;
chomp $update;

$nt->update({ status => $update });