#!/usr/bin/perl

use strict;
use Net::Twitter;

my $t = Net::Twitter->new({ username => 'gavincarr', password => 'SEKRET', identica => 1 });

my $page = 1;
while (1) {
  my $dents = $t->user_timeline({ count => 200, page => $page });
  last unless @$dents;
  print $_->{text} . "\n" foreach @$dents;
  $page++;
}