Цель скрипта проста — он берёт последние 50 записей, выдирает оттуда твиттерчан и постит их ники под тегом #followfriday ) #!/usr/bin/perl -w use strict; use WWW::Curl::Easy; use Data::Dumper; use URI::Escape; my $login = q[skazkin]; my $password = q[password]; my $href = «http://twitter.com/statuses/friends_timeline.xml?count=50»; my $message_dummy = «#followfriday «; my (@posts, %tmp, @people); my $lenta = callTwitter({href=>$href}); […]