#!c:\apachefriends\xampp\perl\bin\perl.exe -T
use warnings; # warnungen aktivieren, ist so besser als -w
use strict; # nun muss man variablen mit my deklarieren... gut gegen tippfehler usw.
use CGI; # laedt CGI 

# die folgende Zeile gibt warnungen und fehler (soweit moeglich) im browser aus;
# das ist zum entwickeln sehr gut, fuer produktionssysteme sollte man diese
# folgende zeile besser auskommentieren, weil es einem eventuellen hacker
# zu viele infos geben koennte:
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

# neues cgi-objekt erzeugen
my $cgi = CGI->new();
my %form = $cgi->Vars(); # geht es so nicht kuerzer als die ganze sub?

print $cgi->header(); # content-type: text/html\n\n
print $cgi->start_html(-title => "IP-Adresse"); # html ... body
print $cgi->p("Ihre IP-Adresse: $form{ip}");
...
print $cgi->end_html; # </body></html>