#!/usr/bin/perl

use CGI;

print "Content-type: text/html\n\n";


my $remoteip = $ENV{'REMOTE_ADDR'};
$remoteip =~ s/^(.*)\.([0-9]+)$/\1\.---/;


print $remoteip;