#!/usr/bin/perl -w

$| = 1;

use strict;
use CGI;

my $cgi = new CGI;

my $variable1 = $cgi->param('type') || 'nothing';
my $variable2 = $cgi->param('show') || 'nothing';
my $url = 'http://server/cgi-bin/skript2.pl';

print "Content-type: text/html \n\n";

if ($variable1 eq 'process')
{
	print '                                                                                                                                                                                                                                                     ';
	print 'please wait';

	# Symbolisiert den Prozess
	sleep 5;
	
	my $meta = $cgi->start_html(
	            my $meta_refresh =
	            -head => $cgi->meta(
	                {
	                    -http_equiv => 'refresh',
	                    -content    => "2; $url?show=result",
	                }
	            ));
	print $meta;
}
elsif ($variable2 eq 'result')
{
	print 'result';
}