retweeter_roulette.pl

use Net::Twitter;
use v5.10;

# get your own credentials at https://dev.twitter.com/apps/new
my $nt = Net::Twitter->new( 
  traits   => [qw/OAuth API::REST/],
	map { $_ => $ENV{"twitter_$_"} || die "ENV twitter_$_ not set" }
		qw(
			consumer_secret
			consumer_key
			access_token
			access_token_secret
			)
	);
die "Could not make Twitter object!\n" unless defined $nt;

my $retweets = $nt->retweets( { id => $ARGV[0], count => 100 } );

say "Found " . @$retweets . " retweets for $ARGV[0]";

my @retweet_users =
	map  { $_->{user}{screen_name} }
	@$retweets;

my $chosen = int rand( @retweet_users );
say "The winner is $retweet_users[$chosen]!";