$CGI->virtual_host() returns DNS name ex. www.my.address.com
$ENV{'SERVER_NAME'} returns "localhost"
$ENV{'HTTP_HOST'} returns "localhost:8001"