while (my $line2=<HTTP>) {
       chomp;