print "enter some text and press enter\n";
print "enter quit to exit\n";
while (<>) {
	chomp;
	exit if $_ = quit";
	print "I got $_\n";
}

##</code><code>##

print "sleeping: ";
sleep 2;
print "done\n";

sleep 1;

$|=1;
print "sleeping again: ";
sleep 2;
print "done\n"