#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Date qw(time2str);
use Data::Dumper;
use Date::Parse qw(str2time);

use Net::Twitter;

my $id = 'usernama';
my $pass = 'pass';

my $set = time - 60*60*24*60;
my $date = time2str($set);
print $date,"\n";;

my $twit = Net::Twitter->new(
                              username => $id,
                              password => $pass,
                            );

my (@uniq, @filter);
my $count = '1';

while ( $count<10 ){
	my $friend = $twit->friends({page => $count });
	foreach my $key ( @{$friend} ){
		push @filter, $key;
	}
	$count++;
}

 @uniq = grep { str2time ($_->{status}->{created_at}) < $set } @filter;

my $num = 1;
foreach my $key ( @uniq ){
	print join(":::",$num, $key->{status}->{created_at}, $key->{screen_name},"\n");
	$num++;
}