foreach my $tweet ( @{$results->{results}} )
{
   printf(
      "%s <%s> %s\n",
      $tweet->{created_at},
      $tweet->{from_user},
      $tweet->{text},
   );
}