Help for this page
#! perl -slw use strict; ... } sleep 1 while do{ lock $running; $running };
__END__ ... 18: ending 20: ending 19: ending