sub twitter_login {
	my $in = $_[0];

	use Net::Twitter;

	my $nt = Net::Twitter->new(
	  traits   => [qw/API::RESTv1_1/],
	  consumer_key        => 'xxxx',
	  consumer_secret     => 'xxx',
	  access_token        => $in->{token},
	  access_token_secret => $in->{token_secret},
	);

	my $foo = $nt->get_configuration();
	print Dumper($foo);


}