--- /dev/null
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use utf8;
+use Net::Twitter;
+
+my $consumer_key = 'CONSUMER_KEY';
+my $consumer_key_secret = 'CONSUMER_KEY_SECRET';
+my $access_token = 'ACCESS_TOKEN';
+my $access_token_secret = 'ACCESS_TOKEN_SECRET';
+
+my $nt = Net::Twitter->new(
+ traits => ['API::REST', 'OAuth'],
+ consumer_key => $consumer_key,
+ consumer_secret => $consumer_key_secret,
+);
+$nt->access_token($access_token);
+$nt->access_token_secret($access_token_secret);
+
+my $res = $nt->update({ status => "test tweet!" });