eval { $lock->create() };
if (my $exception = My::Execption::Lock::Exists->caught()) {
    while ($lock->query()) {
        sleep 180;
    }
    exit 0;
}
die $@ if $@;