use WWW::twitter;
use Data::Dumper;

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

my $twitter = WWW::twitter->new( username => 'Dia_Minarik_86',
					password => 'EzmgRdaT');
					
$stats = $twitter->stats;	

$following = $stats->{following};
$followers = $stats->{followers};	
$total_status = $stats->{total_status};
$total_media = $stats->{total_media};
$favorites = $stats->{favorites};

print "following $following followers $followers  total_status $total_status  total_media $total_media  favorites $favorites  \n";	

$twitter->login; 

sleep 5;
$mystatus_id = $twitter->tweet('my first status');
print "mystatus_id $mystatus_id \n";

$status_id = xxxxxxxxx;

sleep 5;
$status = $twitter->favorite($status_id);
print "favorite status $status \n"; # 1 = OK ; 0 = Something wrong

sleep 5;
$status = $twitter->retweet($status_id);
print "retweet status $status \n"; # 1 = OK ; 0 = Something wrong