#!/usr/local/bin/perl -w

#3
print "Enter something:\n";
while (<STDIN>){
    if (/quit/){
	print "Quitting now, goodbye!\n";
	last;
    }else {
	print "You entered: ";
	print;
    }
}