#!/usr/bin/perl

  use Net::Twitter::Lite;
  my $user = "basselito77";
  my $pass = "rmpirsig";

  my $nt = Net::Twitter::Lite->new(
      username => $user,
      password => $pass
  );

  my $result = eval { $nt->update('Twittering through Net::Twitter::Lite... go go go Perl') };

  eval {
      my $statuses = $nt->friends_timeline({ since_id => $high_water, count => 100 });
      for my $status ( @$statuses ) {
          print "$status->{created_at} <$status->{user}{screen_name}> $status->{text}\n";
      }
  };
  warn "$@\n" if $@;