#! /usr/bin/perl -w

use warnings;
use strict;
use POE qw(Session);


POE::Session->create( 'inline_states' =>
       { '_start' => \&test

       }
);

sub test {
    sleep(4);
    print "Jetzt bin ich auch fertig\n";
}

POE::Kernel->run();

print "Vater ist Fertig\n";

sleep(7); # warten auf das kind