use subs qw/ lock /;