#!# perl: deploy/code/m.lock
use strict;
use warnings;

return sub
{
    print "lock OK\n";
    die "lock OK\n";
};