TwitterApp.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) {
		
	my $r = $nt->friends;
	my @friends = @{$r->{users}};
	
	my %temp = %$r;

	# the data stucture is quite complex, I would suggest u 
	# to print that in file and a to know the various field
	print Dumper(\%temp);

	foreach my $new_hash (@friends) {
		print $new_hash->{'name'},"\n";
	}
}