Select Code to Download

create table foolock (
 /* since we're exclusive per-program, make program primary */
...
 client varchar(255) not null,
 time timestamp
);

#!/usr/bin/perl
use strict;
use warnings;
...
} else {
    # take appropriate action
}