init III

Perl Twitter/tweet.pl

@@ -0,0 +1,20 @@
+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 $@;