Help for this page

Select Code to Download

Select or download this

my $lock = 1;

...
while($lock) { sleep 1 }

# Rest of your program