Select Code to Download

use IO::Socket;

...
my @hosts = ($first..$last);

for ($li=0;$li<=$#hosts;$li++){ &scan() }

sub scan {
    $host = "$net.$hosts[$li]";
...
    }
close($socket);
}