use Fcntl ':flock';
open SELF, '<', $0 or die 'I am already running...';
flock SELF, LOCK_EX | LOCK_NB or exit;

computer2know :: thank you for your visit :: have a nice day :: © 2018