print FILE $data;
}

print STDERR "100%\n";
close(FILE);
close($socket);

# Example HTTP return header:
#
#          HTTP/1.1 206 Partial content
#          Date: Wed, 15 Nov 1995 06:25:24 GMT
#          Last-modified: Wed, 15 Nov 1995 04:58:08 GMT
#          Content-Range: bytes 21010-47021/47022
#          Content-Length: 26012
#          Content-Type: image/gif