nt_bot.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use utf8;
   5 use Net::Twitter;
   6
   7 my $consumer_key = 'CONSUMER_KEY';
   8 my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
   9 my $access_token = 'ACCESS_TOKEN';
  10 my $access_token_secret = 'ACCESS_TOKEN_SECRET';
  11
  12 my $nt = Net::Twitter->new(
  13   traits          => ['API::REST', 'OAuth'],
  14   consumer_key    => $consumer_key,
  15   consumer_secret => $consumer_key_secret,
  16 );
  17 $nt->access_token($access_token);
  18 $nt->access_token_secret($access_token_secret);
  19
  20 my $res = $nt->update({ status => "test tweet!" });