Мой первый скрипт на Perl: использование метода "get ($ url)" в цикле?

Так что это казалось достаточно простым. Используйте серию вложенных циклов, чтобы пройти через тонну URL-адресов, отсортированных по году / месяцу / дню, и загрузить файлы XML. Поскольку это мой первый сценарий, я начал с цикла; что-то знакомое на любом языке. Я запустил его, просто распечатав построенные URL-адреса, и он работал отлично. Затем я написал код для загрузки содержимого и сохранения его отдельно, и он также отлично работал с образцом URL в нескольких тестовых случаях. Но когда я объединил эти два фрагмента кода, он сломался, программа просто застряла и вообще ничего не сделала. Поэтому я запустил отладчик, и когда я прошел через него, он застрял на этой одной строке:

warnings::register::import(/usr/share/perl/5.10/warnings/register.pm:25):25:vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;

Если я просто нажму r, чтобы вернуться из подпрограммы, она сработает и перейдет к другой точке, возвращаясь вниз по стеку вызовов, где что-то подобное происходит снова и снова в течение некоторого времени. Трассировка стека:

$ = warnings::register::import('warnings::register') called from file `/usr/lib/perl/5.10/Socket.pm' line 7

$ = Socket::BEGIN() called from file `/usr/lib/perl/5.10/Socket.pm' line 7

$ = eval {...} called from file `/usr/lib/perl/5.10/Socket.pm' line 7

$ = require 'Socket.pm' called from file `/usr/lib/perl/5.10/IO/Socket.pm' line 12

$ = IO::Socket::BEGIN() called from file `/usr/lib/perl/5.10/Socket.pm' line 7

$ = eval {...} called from file `/usr/lib/perl/5.10/Socket.pm' line 7

$ = require 'IO/Socket.pm' called from file `/usr/share/perl5/LWP/Simple.pm' line 158

$ = LWP::Simple::_trivial_http_get('www.aDatabase.com', 80, '/sittings/1987/oct/20.xml') called from file `/usr/share/perl5/LWP/Simple.pm' line 136

$ = LWP::Simple::_get('http://www.aDatabase.com/1987/oct/20.xml') called from file `xmlfetch.pl' line 28

Как видите, он застревает внутри метода get ($ url), и я понятия не имею, почему? Вот мой код:

#!/usr/bin/perl

use LWP::Simple;

$urlBase = 'http://www.aDatabase.com/subheading/';
$day=1;
$month=1;
@months=("list of months","jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec");
$year=1987;
$nullXML = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<nil-classes type=\"array\"/>\n";

while($year<=2006)
    {
    $month=1;
    while($month<=12)
        {
        $day=1;
        while($day<=31)
            {
            $newUrl = "$urlBase$year/$months[$month]/$day.xml";
            $content = get($newUrl);
            if ($content ne $nullXML)
                {
                $filename = "$year-$month-$day.xml";
                open(FILE, ">$filename");
                print FILE $content;
                close(FILE);
                }
            $day++;
            }
        $month++;
        }
    $year++;
    }

Я почти уверен, что это что-то крошечное, я просто не знаю, но Google ничего не обнаружил.

Заранее спасибо,

Б.

Обновлено: Официально, он просто навсегда зависает внутри этого метода get, выполняется несколько циклов, а затем снова зависает на некоторое время. Но это все еще проблема. Почему это происходит?