use Net::Twitter::Lite;

my $user = '@etafni';
my $password = '+t.iVBl4cN*!YL.4wx!';
 
my $nt = Net::Twitter::Lite->new(
    username => $user,
    password => $password,
    legacy_lists_api => 1,
);
 
my $result = eval { $nt->update('Hello, world!') };
 
eval {
    my $statuses = $nt->friends_timeline({ count => 100 });
    for my $status ( @$statuses ) {
        print "$status->{created_at} <$status->{user}{screen_name}> $status->{text}\n";
    }
};
warn "$@\n" if $@;