everything e-diotic

#!/usr/bin/perl
# $Id$
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Net::Twitter::Lite;
use List::MoreUtils qw(any);
use English qw( -no_match_vars );
my $username;
my $password;
GetOptions( 'username=s' => \$username, 'password=s' => \$password );
if ( not $username ) {
    pod2usage(1);
}
if ( not $password ) {
    print "Please provide password: ";
    $password = <STDIN>;
    chomp $password;
}
my $nt = Net::Twitter::Lite->new(
    username => $username,
    password => $password,
);
my $friends_list   = $nt->friends();
my $followers_list = $nt->followers();
eval {
    $friends_list   = $nt->friends();
    $followers_list = $nt->followers();
};
if ($EVAL_ERROR) {
    die “Unable to connect to twitter - $EVAL_ERROR”;
}
my @friends = map { $_->{screen_name} } @{$friends_list};
my @friends_and_followers;
my @followers;
my $i = 0;
for my $follower ( @{$followers_list} ) {
    if ( any { $_ eq $follower->{screen_name} } @friends ) {
        push @friends_and_followers, $follower->{screen_name};
    }
    push @followers, $follower->{screen_name};
    $i++;
}
print “Friends and Followers (“ . scalar @friends_and_followers . “):\n”;
print join ‘, ‘, @friends_and_followers;
print “\n\nFriends (“ . scalar @friends . “):\n”;
print join ‘, ‘, @friends;
print “\n\nFollowers (“ . scalar @followers . “):\n”;
print join ‘, ‘, @followers;
print “\n”;
exit 0;
__END__
=pod
=head1 NAME
twitter.pl - CLI twitter client
=head1 SYNOPSIS
    twitter.pl [options] 
    Options:
    --username <username>
    --password <password>
=head1 OPTIONS
=over 8
=item B<--username> Twitter username, this parameter is mandatory
=item B<--password> Twitter password, this parameter is optional, if not provided you will be prompted for a password.
=back