Select Code to Download

    if (/blocked.using/) {
        while (<>) {
...
            print "$ip\n";
        }
    }

use warnings;
use strict;
...
        $state = IDLE;
    }
}