$| = 1;

print && select undef,undef,undef,.2 while <>;