Select Code to Download

#!/usr/bin/env perl

...
    $assign = 1 if $assign == 0;
    printf $format => $init, $bound, $start, $assign; 
}

  initial |  boundary | start/end |    assign | 
        0 |         1 |         1 |         1 | 
...
      010 |       010 |       010 |       010 | 
Argument "1 * 0 = 0" isn't numeric in numeric eq (==) at ./pm_example.
+pl line 16.
1 * 0 = 0 | 1 * 1 = 0 | 1 * 0 = 0 | 1 * 0 = 0 |