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

my $config = pit_get("twitter.com", require => {
	"username" => "cool_ni_ikou",
	"password" => "your password on twitter.com"
   });

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

my $twit = Net::Twitter->new(
                              username => $config->{username},
                              password => $config->{password},
                            );

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++;
}