Select Code to Download

my $lock = 0;
$GetDataFromTable->execute($indexnumber)
...
        || die "Can't execute InsertData ($DBI::errstr)";
    goto DONE;
}

if ($lock) {
     # Do some other stuffDon't mess with it, it's LOCKED!
...

DONE:
    #Do some stuff

if ($lock and 1) {