Utilizzando Net::Twitter è piuttosto semplice inviare un nuovo stato (twit), l’unico inconveniente è che bisogna procurarsi le chiavi necessarie per l’overauthentication. Da non molto twitter ha disabilitato la possibilità di fare il login in chiaro con i propri username e password.

Per ottenere le chiavi:

• andate su https://dev.twitter.com/ ed effettuate il login
• creare una nuova applicazione
• tra le impostazioni dell’applicazione modificate i diritti di accesso ed impostare su “Read, Write and Access direct messages”

• ora tra i dettagli dell’applicazione generate l’Access Token

• appena generati siete pronti per copiare Consumer Key, Consumer Secret, Access Token e Access Token Secret nello script in perl

#!/usr/bin/perl -w

use Net::Twitter;
$input = "Nuovo stato da pubblicare : )";

$ckey = "-----";
$csec = "------";
$atok = "------------------";
$asec = "-----------";

my $nt = Net::Twitter->new(
    traits              => [qw/API::REST OAuth/],
    consumer_key        => $ckey,
    consumer_secret     => $csec,
    access_token        => $atok,
    access_token_secret => $asec,
);

$nt->update($input);