Select Code to Download

{
        my $p=0;
...
                $p=0 if ($p > 8);
        }
}

{
        my $bar=qq{0%..........50%..........100%};
...
                print "$_\r";
        }
}