Select Code to Download

C:\test>perl -c 632320.pl
Global symbol "$i" requires explicit package name at 632320.pl line 17
+.
...
Global symbol "$outPattQty" requires explicit package name at 632320.p
+l line 69.
syntax error at 632320.pl line 73, near ") {"
632320.pl has too many errors.

#/usr/bin/perl -w

...
    $CONSOLE->WriteChar($statString, $threadStatusColumn, $statusRow)
}