#!/usr/bin/perl -w 
 
 
&funk('http://www.google.com/search?q=bananas', 'a', 'xXx'); 
 
sub funk { 
 
	use strict; 
	use HTML::Tree; 
	use LWP::Simple; 
 
	#die "nu am primit parametrii: 1 - url, 2 - clasa link, 3 - fisier de raportare(dc e nevoie)\n\n" unless (print $_[0]."\n" && print $_[1]."\n" && print $_[2]."\n"); 
	 
	my $content = get($_[0]) or die "am belito la get!"; 
	my $tree = HTML::Tree->new(); 
	$tree->parse($content); 
 
	my @links = $tree->look_down('class','titlu_site'); 
	 
	my $i = 0; 
	my @Kontent; 
	foreach (@links) { 
		print $_->as_text."\n"; 
		 
		my $url2get = 'http://'.$_->as_text; 
		$Kontent[$i] = get($url2get) or die "am belito la al doilea get!"; 
		 
		open (FILE, ">>log.txt"); 
		print FILE $Kontent[$i]; 
		close (FILE); 
		 
		$i++; 
	} 
	 
}