select(STDERR);
print $|;