Twiiterfollowing.pl

#!/usr/bin/perl
use Data::Dumper;
use Net::Twitter;
 
 
 
##fill in your dev.twitter stuff below
my $twitterconsumer            = "ur_consumer";
my $twitterconsumersecret      = "ur_consumer_secret";
my $twitteraccesstoken         = "ur_access_token";
my $twitteraccesstokensecret   = "ur_access_token_secret";
 
 
 
my $nt = Net::Twitter->new(
	traits              => [qw/API::RESTv1_1/],
	consumer_key        => $twitterconsumer,
	consumer_secret     => $twitterconsumersecret,
	access_token        => $twitteraccesstoken,
	access_token_secret => $twitteraccesstokensecret,
);
 
 
if (1) {
    
    #fetched the id
	my $twitterFollowiing = $nt->followers_ids;
	
	#now iterating over each id to fetch other details
	foreach my $id ( @{ $twitterFollowiing->{ids} } ) {
	    
	    
		my $followers = $nt->followers( {user_id => $id} ) ;
		
		foreach my $new_hash ( @{$followers->{users}} ) {
		    #printing the user id, name and his/her acc screen name
            print $new_hash->{'id'} , " : " , $new_hash->{'name'} , " : " , $new_hash->{'screen_name'},"\n";
            
        }

	}
}
else {
  my $twitterStatus = "Hi I \'m twitting this using Net::Twitter";
  $nt->update({ status => $twitterStatus });
  
  
}