my $req=HTTP::Request->new(GET=>($Your_Links[rand(scalar(@Your_Links))]));
		my $ref=HTTP::Request->header( 'Referer' => 'http://www.site.nl/index.php' );
		my $ua=LWP::UserAgent->new();
		$ua->agent($User_Agent[rand(scalar(@User_Agent))]);
		$ua->timeout($timeout);
		my $response=$ua->request($req);
		if ($response->is_success) {