Подвисают процессы при загрузке файла

Всем привет

подскажите кто-нибудь, куда копать
Иногда подвисают процессы скрипта при загрузке файла на удалённый сервер. Скрипт написан на Perl, загружаются с помощью
LWP. Когда подвисают начинают дико жрать проц и в выводе strace'a вот что:

select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})
select(8, [7], [7], NULL, {180, 0})     = 1 (in [7], left {179, 999999})

происходит это не всегда.