use LWP::Simple qw(get); use JSON qw(from_json); my $username = 'ESPN'; my $data = from_json get "http://twitter.com/users/${username}.json"; print $username, " has ", $data->{followers_count}, " followers.\n";