#!/usr/bin/perl -T 

use strict;
use warnings;
use CGI qw(:standard); 
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
use Socket; 

print header;
print start_html("Remote Host"); 

my $ip = 'localhost';
my $hostname = gethostbyaddr(inet_aton($ip), AF_INET); 
print "Welcome, visitor from $hostname!<p>\n"; 

print end_html;
[download]