Data::Lock::dlock my $foo = 42;