Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
}

sleep 1 while do{ lock $running; $running };

Select or download this


__END__
...
18: ending
20: ending
19: ending