use IO::Handle;

STDOUT->print("Type some text and hit enter.\n");
STDOUT->print("Type 'quit' or 'exit' when you've finished.\n\n");

while (my $x = STDIN->getline)
{
	last if $x =~ /^\s*(quit|exit)/i;
	STDOUT->print($x);
}