Select Code to Download

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.

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

doSomething(20);

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