use Net::Twitter;
	  my $nt = Net::Twitter->new(
		  traits   => [qw/OAuth API::REST/],
		  consumer_key        => 'aaaaa',
		  consumer_secret     => 'xxxxx',
		  access_token        => $user->{tw_token},
		  access_token_secret => $user->{tw_token_secret},
	  ); 
	  
	  my $result;
	  eval {
		$result = $nt->update('Hello, world!');
	  };

	  if ( my $err = $@ ) {
		die $@;

		warn "HTTP Response Code: ", $err->code, "\n",
			"HTTP Message......: ", $err->message, "\n",
			"Twitter error.....: ", $err->error, "\n";
	  }