#!/usr/bin/perl use CGI; my $cgi=new CGI(); print "Content-type: text/html\n\n"; if ($cgi->param()) { #button gedrückt = upload von Datei #so, jetzt möchte ich ein programm starten und gleich wieder hier zurückkehren #alles getestet: # system('perl afterupload.pl'); # exec('perl afterupload.pl'); # qx(perl afterupload.pl); # open(f,'|perl afterupload.pl'); #ganz gut klappt eben my $pid=fork(); unless (defined $pid) { die "no ressources for upload available" } elsif ($pid==0) { close(STDOUT); # ganz wichtig!!! exec("perl afterUpload.pl"); exit(0); } else { print q( so weit, so gut....

); } } else { print <<'EOF' EOF }