#!/usr/bin/perl

use Net::Twitter;
use Try::Tiny;
use Data::Dumper;


$twitter = Net::Twitter->new(
  access_token_secret => "",
  consumer_secret     => "",
  access_token        => "",
  consumer_key        => "",
		traits   => [qw/API::RESTv1_1/],
		ssl=>1
); 




$text="Hi there!";

$twitter->update($text);