#Parameters: id, user_id, screen_name, since_id, max_id, count, page
eval {
  my $statuses = $nt->user_timeline({ screen_name => 'username', count => 4 });
  for my $status ( @$statuses ) {
    my $message = substr $status->{text}, 0, 70;
	      
	      if ($status->{text} ne $message)
	      {
		      $message = $message . '...';
	      }
     print $message;
   }
};
if ( $@ ) {

    if ( blessed $@ && $@->isa('Net::Twitter::Error') ) {
        #... use the thrown error obj
        warn $@->error;
    }
    else {
        # something bad happened!
        warn "Twitter is failing!";
    }
}