#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use utf8; #this perl-file is written in utf-8
binmode STDOUT, ":encoding(utf8)"; #encode all output directed to STDOUT (e.g. print) to browser as utf-8
use Data::Dumper; #zum debuggen
my $cgi = new CGI;
$cgi->charset('UTF-8'); # Let CGI.pm write 'Content-Type: text/html; charset=UTF-8' in the HTTP header
print $cgi->header(); # Write HTTP header
print "\$cgi->param('creators_name') (main)= " . $cgi->param('creators_name') . "
";
my $creators_name_content = $cgi->param('creators_name') . "";
print "\$creators_name_content (main)= $creators_name_content
";
print_formular($creators_name_content);
sub print_formular {
print <<"END";
title
END
print "\$cgi->param('creators_name') (sub)= " . $cgi->param('creators_name') . "
";
print "\$creators_name_content (sub)= $creators_name_content
";
print "\$creators_name_content (arg)= $_[0]
";
print <<"END";
END
}
####
$cgi->param('creators_name') (main)= 2
$creators_name_content (main)= 2
$cgi->param('creators_name') (sub)= 1
$creators_name_content (sub)= 1
$creators_name_content (arg)= 2