Прошу помочь со скриптом

#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

open (FILE ,'<file.txt');
my @F = <FILE>;
chomp @F;

my $ua = LWP::UserAgent->new;

$ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)');
$ua->default_header('VIA' =>"somevalue");# в цикле менять
$ua->default_header('Referer' => "http://yandex.ru/");
$ua->default_header('Accept' => "text/html");
$ua->default_header('Accept-Charset' => "windows-1251");

my $response = $ua->get('http://mysite.ru/');

if ($response->decoded_content =~ m%document\.Element\('idsucces'\)\.sty\s*=\s*'\s*(.*?)\s*'%s)

{  
   sleep (30);
   
   my $response = $ua->get($1);
}
else
{
  print "No\n";
}