use strict;

my $uuid_store = '/tmp/.uuid_store';
my $MY_UID=1;

if (-e $uuid_store) {
    open INHANDLE, "<$uuid_store" || die "Can't open $uuid_store for read\n";
    my $var = <INHANDLE>;
    close INHANDLE;
    $MY_UID = int $var;
}

print "The uid you are looking for : $MY_UID\n";

open OUTHANDLE, ">$uuid_store" || die "Can't open $uuid_store for write\n";
print OUTHANDLE ++$MY_UID;
close OUTHANDLE;