while (1) {
    print "Enter an address, QUIT to exit\n";
    my $test = <STDIN>;
    chomp ($test);
    print "$test\n";
    if (lc ($test) eq "quit") { last; }
} ## end while (1)