use LWP::Simple;
my $query = shift(@ARGV);
die "Dead!!" unless (open(IN,">/home/vivek/Desktop/test12.txt"));
$content = get("http://amigo.geneontology.org/cgi-bin/amigo/search.cgi?query=$query;search_constraint=gp;action=query;view=query/");
die "Couldn’t get the website!" unless defined $content;
print IN "$content";
while(IN)
{


my $line1;
print "entered whileloop";
@line1 =~ "$1\n" if m/GO:(\d+)/;
print "@line1\n";

close(IN);
}