use LWP::Simple;
use HTML::Parser;

my $query = shift(@ARGV);

#print "$query\n";



die "waste fellow dnt know hw to write a program" unless (open(OUT,">test12.txt"));

$content = get("http://amigo.geneontology.org/cgi-bin/amigo/search.cgi?query=$query;search_constraint=gp;action=query;view=query/");

die "Couldnt get the website!" unless defined $content;

print OUT "$content";

close (OUT);

print "At the whileloop\n";

open (IN, "test12.txt") || die "Couldnt open file";

print "class= initial\n";

while(my $line = <IN>)

{

chomp $line;

$line =~ s/^[\s\t]+|[\s\t]+$//;

if ($line =~ /(class=\".+\")/) 
	{
	#$line =~ /(class=\".+\")/; 
	#$classname= $1;
	print $1,"\n";
	} 

#$string = "GO:";



if ($line =~ />(.+GO .+)</)

{

print "content= ",$1,"\n\n";

$page = get("http://amigo.geneontology.org/cgi-bin/amigo/term-details.cgi?term=GO:$3");

HTML::Parser->new(text_h => [\my @accum, "text"])->parse($page);
print map $_->[0], @accum;

#print $page;

}

}

close(IN);