sub get_blog{ #.. #.. #..some code $ua->add_req_header("User-Agent", "User-Agent: Mozilla/5.0 (X11; U; Linux i686; pl-PL; rv:1.9) Gecko/2008061015 Firefox/3.0\r") ; $ua->request($_[0]) or die "unable to get ".$_[0]; my $content = $ua->body(); $ua->reset(); # IF this is first page of blog -> parse constant elements # of blog END # parse posts and comments # recurency -> find address & get the next page }