#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use IO::Handle; STDOUT->autoflush(1);

my $pid = fork();

# Fehler
if (!defined $pid) { print time()." Fehler bei fork()\n"; }

# Vater
elsif ($pid) {
	print time()." Hier ist der Vater\n";
}

# Sohn
else {
	print time()." Sohn im Vaterscript terminiert jetzt\n";
	close STDIN;
	close STDOUT;
	exec("perl ".dirname(__FILE__)."/test_fork2.pl");
	exit();
}