PERL-93 implemented awaitData