Help for this page
use strict; ... open OUTHANDLE, ">$uuid_store" || die "Can't open $uuid_store for writ +e\n"; print OUTHANDLE ++$MY_UID; close OUTHANDLE;
% perl gen_uid.pl The uid you are looking for : 1 ... The uid you are looking for : 5 % perl gen_uid.pl The uid you are looking for : 6