Коды ответов Net :: Twitter: Stream

Я новичок в этом форуме, и у меня возникли проблемы с библиотекой Perl Net :: Twitter: Stream. Я следую примеру в этой ссылке Net :: Twitter : Поток.

Но эта часть отсутствует, когда я получаю неправильный код ответа (отличный от 200), и мне приходится останавливать свой алгоритм. Итак, что мне делать в этом случае? Боюсь так сильно им пользоваться и попасть в черный список твиттера ...

Я использую этот код ниже:

use Net::Twitter::Stream;
Net::Twitter::Stream->new ( user => $username, pass => $password,
                          callback => \&got_tweet,
                          track => 'perl,tinychat,emacs',
                          follow => '27712481,14252288,972651' );
sub got_tweet {
     my ( $tweet, $json ) = @_;   # a hash containing the tweet
                                  # and the original json
     print "By: $tweet->{user}{screen_name}\n";
     print "Message: $tweet->{text}\n";
}