Select Code to Download

perl -e "@list=(1..7);$counter=0; foreach $it (@list){if ($counter >= 
+3){print qq(\n\n);$counter = 0; redo}print qq($it\n); $counter++}"
1
...


7

sub proces_no_more_than_50 {

...
  &proces_no_more_than_50($port,@addresses) if defined $addresses[0];
}