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;


##</code><code>##

int i;
printf( "calling\n" );
i = utime (filename, &buf);
printf( "called\n" );
return i;