foreach my $newlink (keys %templinks)
         {
            my $mech = WWW::Mechanize->new( autocheck => 1 );
            $mech->get( $newlink );

            foreach ($mech->find_all_links) 
            {
               $templinks{$_->url} = $_->url;
            }
         }