print 'Enter another address?';
my $answer = <>;
last if $answer !~ /[yY]/;