Help for this page
while (1) { print "Enter an address, QUIT to exit\n"; ... print "$test\n"; if (lc ($test) eq "quit") { last; } } ## end while (1)