print $sock <<EOM;
GET $query HTTP/1.1
Host: quote.yahoo.com
Accept: */*
User-Agent: quote2.pl

EOM