sub dont_count_up
{
    my $progress = 0;
    $pb->configure( -variable => \$progress );
    print "progress=$progress\n";
}