Select Code to Download

# alarmtest.pl
use strict;
...
         $obj->Kill(1);
    };
}

sleep_unless_lockfile (200, "$ENV{TEMP}\\lockfile");

...
    redo;
    }
}