Select Code to Download

use Semfile;
...
my $lock = Semfile->new("/tmp/getuid.lock") or die "oops! $!";
# do your "get next uid" and your "sudo useradd" here
$lock->release;

package Semfile;

...
    undef $_[0]{'fh'};
}
1; # End of module