Select Code to Download

{
   my $lock = ...;
   my $on_exit = sub { releaseLock($lock); };
   eval 'END { $on_exit->() }';
}