next if $response == 500;
warn "->$response<-\n";

##</code><code>##

while (defined( my $url = <IN> )) {
    chomp $url;