Select Code to Download

C:\test>perl new_ecg.pl
Server ready. Waiting for connections on 8000 ...
Invalid value for shared scalar at C:/Perl/lib/Thread/Queue.pm line 90
+.
A thread exited while 12 threads were running.

#!/usr/bin/perl
use strict;
...
        sleep 30;
    }
}

[tivadm@rtmr]/home/tivoli/robin$ ./new_ecg.pl
Server ready. Waiting for connections on 8000 ...
Can't store GLOB items at ../../lib/Storable.pm (autosplit into ../../
+lib/auto/Storable/_freeze.al) line 282, at /usr/opt/perl5/lib/site_pe
+rl/5.8.0/Thread/Queue/Any.pm line 30
A thread exited while 12 other threads were still running.