Добавлено: 13/08/03 в 06:46

Где сюда вставить referer

например:

my $ua = LWP::UserAgent->new();
$ua->agent ("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");

$ua->mirror($line1, $sul);

wget через system не надо, это понятно.

Добавлено: 13/08/03 в 10:35

Нигде не вставить.
Посмотри как выглядит mirror в UserAgent.pm и напиши свою функцию с реферером как параметр. Делов на пять минут