#!/usr/bin/perl

$host=$ENV{'HTTP_HOST'};

print "$host";