Select Code to Download

while (system($cmd)) {}

#!/usr/bin/perl
use warnings;
...
   $percent_done = $count / $tot * 100;
   $pb->update;
}

#!/usr/bin/perl
use warnings;
...
   }
###################################################
}