foreach my $error (@{$twitter_error->{errors}}) {
warn "code => " , $error->{code}, "\n";
warn "message => ", $error->{message}, "\n";
foreach my $error (@{$twitter_error->{errors}}) {
warn "code => " , $error->{code}, "\n";
warn "message => ", $error->{message}, "\n";