my $ua = LWP::UserAgent->new(timeout => 15,
                        cookie_jar => new HTTP::Cookies,
                        Referrer => 'http://nadietah.ru',
                        agent => agent()); #рендомно агент
        #until(proxy($ua)){};
        print "\nConnecting to site: $siteurl \n";
        my $res = $ua->get($siteurl);
        #$_ = $res->content;
        #my @alllinks = /href="(.+?)"/gi;
        my @alllinks = $res->content =~ /href="(.+?)"/gi;
        print "Got ".scalar @alllinks . " links\nProcessing...\n";
        my @luxlinks;
        foreach $key (@alllinks)
        {               
                $key = $key =~ /href=\"(.+?luxup.+?)\"/;
                print "$key\n" if $key;
        }