Tweet
file: build.pl 77: eval { 78: my $rv = $nt->update_with_media($message); 79: if ($rv->{id_str}) { 80: say "successfully tweeted: ".$message->{status}; 81: } 82: }; 83: if ($@) { 84: say "error while tweeting: ".$@; 85: }
now actually tweet it!