Help for this page

Select Code to Download

Select or download this

my $running :shared = 0; 
sub thread{ 
...

...
sleep 1 while $running;