#!/usr/local/bin/perl

binmode(STDIN, ":utf8");

binmode(STDOUT, ":utf8");

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use URI::Escape;

my $DEBUG = 0;

my $output;

############################################################

### YOUR CONTENT HERE

$output = "content-type: text/plain\n\n";

$output .= $ENV{REMOTE_HOST};

############################################################

print $output;

exit 1;