#! /usr/bin/perl -w

use warnings;
use strict;
use POE qw(Session);
use threads::shared;


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

       }
);

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

print "ich bin zuerst fertig\n";

$poe_kernel->run();

sleep(7); # warten auf das kind