Select Code to Download

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