Unquoted string "clear" may clash with future reserved word at 1137927.pl line 35.
Bareword "break" not allowed while "strict subs" in use at 1137927.pl line 57.
Bareword "clear" not allowed while "strict subs" in use at 1137927.pl line 35.

##</code><code>##

sub doSomething {
    $status->setItems($_[0]);
    for (1..$_[0]){
        sleep 1;
        $status->update;  ## Will call $status->start() if needed
    }
}

##</code><code>##

doSomething(20);

##</code><code>##

        if ($i % $j == 0) {
            $is_prime = 0;
            $status->setItems($i);
            sleep 1;
        }   

##</code><code>##