Select Code to Download

while (<*>) {
    $o = $_;
...
    print "$cmd\n";
    system($cmd) == 0 or die "$cmd: failed with status $?";
}

use strict;
use warnings;