use strict;
use warnings;
use feature 'say';

use AnyEvent;
use AnyEvent::IO;

my $c = AnyEvent-> condvar;
aio_utime( 'x', 0, 0, sub { $c-> send( @_ )});
say $c-> recv;