print "Beginning test.\n";

print "This is not autoflushed...";
sleep 3;
{
	local $| = 1;
	print "This is autoflushed...";
	sleep 3;
}
print "This is not autoflushed...";
sleep 3;