LWP и тайм аут браузера

[Yaroslav]

use LWP::Simple;
$file = get("$url");
написал простой скриптик, который загружает указаный файл на сервер, но если файл долго грузится, то браузер выдает ошибку по тайм ауту.
возможно ли сделать что б писалось % загрузки?

[NeoNox]

use LWP::Simple qw($ua get);

$ua->timeout(30);

$file = get("$url");

?

[arto]

perldoc LWP::UserAgent | less -p content_cb