#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
my ($zahl);
sub getinc
{print "*** \$zahl(1): $zahl ***
";
$zahl= $zahl+1;
print "*** \$zahl(2): $zahl ***
";
}
use CGI;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
$zahl = 1;
print <
AAA
getinc ();
print <
GGG