Test

test1.cgi #!/usr/bin/perl use CGI; $query = new CGI; $secretword = $query->param('w'); $remotehost = $query->remote_host(); print $query->header; print "

Massage $secretword came from $remotehost IP

"; ##

##


$|=1;
while(1){
  chomp(my $say = <>);
  ($say eq 'q') ? (exit(0)) : (print "\nI caught $say \n");
}