Select Code to Download

use Fcntl qw (:DEFAULT :flock :seek);
my $file = '/dev/shm/tmpcount.txt';
...
  print $fh $enc;
  close $fh;
}

use Fcntl qw (:DEFAULT :flock :seek);

...
close $fh;
return $string;
}