Select Code to Download

#/usr/bin/perl -w

...
    $CONSOLE->WriteChar($statString, $threadStatusColumn, $statusRow)
    #print "$threadname ended.\n";
}

C:\chas_sandbox>test.pl
    1/177  .    3/8         4/4         4/20
C:\chas_sandbox>