#!/c:\perl64\bin
do
{
   print "Enter an address, QUIT to exit\n";
   my $test = <STDIN>;
   chomp($test);
   print "$test\n";
} while (lc($test) ne "quit");