Select Code to Download

use strict;
use warnings;
...
    $_ = 0 if $_ < $cutoff;
    print $_ ? '-' x ($_ * 50 / $max) : '', "\n";
}

...