Da war die Initialzündung :)
Danke jan

Statt:
print $socket qq|GET $path HTTP/1.0|.CRLF.CRLF;

Muss ich schreiben:
print $socket qq|GET $url HTTP/1.0|.CRLF.CRLF;

dann klappt's auch mit den virtuelle Hosts.