print $sock "http://www.testing.com/cgi-bin/appoint/cxz.pl?num=$number&line=$line&company_name=$AoH{38}\r\n";

http://www.testing.com/cgi-bin/appoint/cxz.pl?num=1DS58K3&line=01&company_name=Advanced%20Serv.Comp.