#!/usr/bin/perl -W use strict; use warnings; use IO::Handle; STDOUT -> autoflush (1); use CGI; my $zeit = time; print CGI -> new -> header . <

Bin da um $zeit mit PID $$

HTML_TEIL close STDOUT; open (my $fh,">test.parent.$$" . ".txt"); print $fh "test"; close $fh;