Index: Dev/twitter/dump_timeline.pl
===================================================================
--- Dev/twitter/dump_timeline.pl	(revision c1b8ad4f4aa627d9318108dba6f0f54c472e8565)
+++ Dev/twitter/dump_timeline.pl	(revision a5b6bf1b18c7adf5e32cc0e020e76b26272902af)
@@ -160,10 +160,16 @@
         warn $@->error;
         if ($@->twitter_error) {
-            my %twitter_error = %{$@->twitter_error};
-            map {
-                $twitter_error{"$_ => "} = $twitter_error{$_} . "\n";
-                delete $twitter_error{$_}
-            } keys %twitter_error;
-            warn join("", %twitter_error);
+            my $twitter_error = $@->twitter_error;
+            if (defined $twitter_error->{errors}) {
+                foreach my $error (@{$twitter_error->{errors}}) {
+                    warn "code => "   , $error->{code}, "\n";
+                    warn "message => ", $error->{message}, "\n";
+                }
+            }
+            else {
+                # unknown HASH structure
+                use Data::Dumper;
+                warn Dumper $twitter_error;
+            }
         }
     }
Index: Dev/twitter/show_status.pl
===================================================================
--- Dev/twitter/show_status.pl	(revision 43d739e1bca5a73407ee3433a578c641e796106a)
+++ Dev/twitter/show_status.pl	(revision a5b6bf1b18c7adf5e32cc0e020e76b26272902af)
@@ -58,10 +58,16 @@
         warn $@->error;
         if ($@->twitter_error) {
-            my %twitter_error = %{$@->twitter_error};
-            map {
-                $twitter_error{"$_ => "} = $twitter_error{$_} . "\n";
-                delete $twitter_error{$_}
-            } keys %twitter_error;
-            warn join("", %twitter_error);
+            my $twitter_error = $@->twitter_error;
+            if (defined $twitter_error->{errors}) {
+                foreach my $error (@{$twitter_error->{errors}}) {
+                    warn "code => "   , $error->{code}, "\n";
+                    warn "message => ", $error->{message}, "\n";
+                }
+            }
+            else {
+                # unknown HASH structure
+                use Data::Dumper;
+                warn Dumper $twitter_error;
+            }
         }
     }
Index: Dev/twitter/twitterbot.pl
===================================================================
--- Dev/twitter/twitterbot.pl	(revision 43d739e1bca5a73407ee3433a578c641e796106a)
+++ Dev/twitter/twitterbot.pl	(revision a5b6bf1b18c7adf5e32cc0e020e76b26272902af)
@@ -302,10 +302,16 @@
         warn $@->error;
         if ($@->twitter_error) {
-            my %twitter_error = %{$@->twitter_error};
-            map {
-                $twitter_error{"$_ => "} = $twitter_error{$_} . "\n";
-                delete $twitter_error{$_}
-            } keys %twitter_error;
-            warn join("", %twitter_error);
+            my $twitter_error = $@->twitter_error;
+            if (defined $twitter_error->{errors}) {
+                foreach my $error (@{$twitter_error->{errors}}) {
+                    warn "code => "   , $error->{code}, "\n";
+                    warn "message => ", $error->{message}, "\n";
+                }
+            }
+            else {
+                # unknown HASH structure
+                use Data::Dumper;
+                warn Dumper $twitter_error;
+            }
         }
     }
Index: Dev/twitter/update_timeline.pl
===================================================================
--- Dev/twitter/update_timeline.pl	(revision 43d739e1bca5a73407ee3433a578c641e796106a)
+++ Dev/twitter/update_timeline.pl	(revision a5b6bf1b18c7adf5e32cc0e020e76b26272902af)
@@ -112,10 +112,16 @@
         warn $@->error;
         if ($@->twitter_error) {
-            my %twitter_error = %{$@->twitter_error};
-            map {
-                $twitter_error{"$_ => "} = $twitter_error{$_} . "\n";
-                delete $twitter_error{$_}
-            } keys %twitter_error;
-            warn join("", %twitter_error);
+            my $twitter_error = $@->twitter_error;
+            if (defined $twitter_error->{errors}) {
+                foreach my $error (@{$twitter_error->{errors}}) {
+                    warn "code => "   , $error->{code}, "\n";
+                    warn "message => ", $error->{message}, "\n";
+                }
+            }
+            else {
+                # unknown HASH structure
+                use Data::Dumper;
+                warn Dumper $twitter_error;
+            }
         }
     }