Форум АНТИЧАТ - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Код:

sub upload(){     
my $req = POST $URL,
      Content_Type => 'multipart/form-data',                  
      Content => [Content_Type => 'form-data',         
      filename => [$nam],        ];   
  
my $res=LWP::UserAgent->new->request($req);         $content = $res->content;         
if ($content=~/загружен на сайт./){print "$name - OK\n"}  }

Выше представленная функция загружает файл на сайт через POST запрос.
Однако есть одна неприятность - при загрузке жрет очень много памяти (при загрузке 20mb файла лопает ~500mb оперативы)
Внимание вопрос: как убрать ограничение на загрузку файла и при этом, сделать что бы памяти столько не жрал ???
Выслушаю любые советы и предложения, возможно даже применение другого языка программирования... (желательно что бы на *nix'aх работало)