send a Host header if supplied.

http://lingr.com/room/perl_jp/archives/2013/11/12#message-17349919