#!/usr/bin/perl -w
###########################################
# unfollow-all - Get rid of Twitter friends
# 2009, Mike Schilli <m@perlmeister.com>
###########################################
use strict;
use Net::Twitter;

my $nt = Net::Twitter->new(
        traits   => [qw/API::REST/],
        ssl      => 1,
        username => "perlsnapshot",
        password => "*******",
);

my $friends = $nt->following();

for my $friend (@$friends) {
    print "$friend->{screen_name}\n";
    $nt->destroy_friend( $friend );
}