#!/usr/bin/perl
# $Id: fork.pl,v 1.2 2012/01/14 10:33:30 dk Exp $
use strict;
use IO::Lambda qw(:lambda);
use IO::Lambda::Fork qw(forked);

lambda {
    context 0.1, forked {
          select(undef,undef,undef,0.8);
          return "hello!";
    };
    any_tail {
        if ( @_) {
            print "done: ", $_[0]-> peek, "\n";
        } else {
            print "not yet\n";
            again;
        }
    };
}-> wait;