#!c:/xampp/perl/bin/perl.exe

use CGI qw(:all);
use strict;
use warnings;

my $cgi = new CGI;

my $css =<<EOCSS;
body { margin:0; padding:0;}
div { border:1px solid #888; }
output  { width:824px;	height:618px;	position:absolute;	top:150px;	left:200px;	}
EOCSS

my $window = $cgi->param('value1');

output($window);

exit;

#########################################################
#########################################################

sub output{
	
	my $window = shift;
	
	print $cgi->header;
	print $cgi->start_html(	-style=> {
									-type=>'text/css',
									-code=>$css,
								}
							);
	print $cgi->h1( {-id=>'output'}, 'mein text');
	print $cgi->end_html;

}