IO::File->new(">$path_noext.var")->close unless -f "$path_noext.var";
flock my $lockfh = IO::File->new("<$path_noext.var"), LOCK_EX;
IO::File->new(">$path_noext.var")->close unless -f "$path_noext.var";
flock my $lockfh = IO::File->new("<$path_noext.var"), LOCK_EX;